dinislage/cpanspec
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Maybe finally handle "v" in version number correctly.

Browse Source
This commit is contained in:
stevenpritchard
2007-08-02 22:22:37 +00:00
parent c72d761954
commit 3ef653a854
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Changes
View File

@@ -1,3 +1,7 @@
1.74
* Maybe finally handle "v" in version number correctly.
1.73 2007-07-22
* Filter repoquery results better.

11
cpanspec
View File

@@ -10,10 +10,10 @@
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
# $Id: cpanspec,v 1.53 2007/07/16 16:10:40 stevenpritchard Exp $
# $Id: cpanspec,v 1.54 2007/08/02 22:22:37 stevenpritchard Exp $
our $NAME="cpanspec";
our $VERSION='1.73';
our $VERSION='1.74';
=head1 NAME
@@ -568,15 +568,15 @@ my @processed=();
for my $file (@args) {
my ($name,$version,$type);
if ($file =~ /^(?:.*\/)?(.*)-([^-]+)\.(tar)\.(?:gz|bz2)$/) {
if ($file =~ /^(?:.*\/)?(.*)-v?([^-]+)\.(tar)\.(?:gz|bz2)$/) {
$name=$1;
$version=$2;
$type=$3;
} elsif ($file =~ /^(?:.*\/)?(.*)-([^-]+)\.tgz$/) {
} elsif ($file =~ /^(?:.*\/)?(.*)-v?([^-]+)\.tgz$/) {
$name=$1;
$version=$2;
$type = 'tar';
} elsif ($file =~ /^(?:.*\/)?(.*)-([^-]+)\.(zip)$/) {
} elsif ($file =~ /^(?:.*\/)?(.*)-v?([^-]+)\.(zip)$/) {
$name=$1;
$version=$2;
$type=$3;
@@ -598,6 +598,7 @@ for my $file (@args) {
fetch($source, $file);
$name=$d->dist();
$version=$d->version();
$version=~s/^v//;
if ($file =~ /\.(tar)\.gz$/) {
$type=$1;
} elsif ($file =~ /\.tgz$/) {