summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-26 22:26:11 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-26 22:26:11 +0000
commitdd1c32ab6e018e1bbdfaa9c4584ebb9aa855b647 (patch)
tree1956109ba7e09b3280eea4f9465de6889c50c791
parent8062addebc9c881e03344bbd4ae33745f36bee12 (diff)
Applying Davevg's patch for the setup.pl
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@156 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xsetup.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/setup.pl b/setup.pl
index b88c4010..c1b11e48 100755
--- a/setup.pl
+++ b/setup.pl
@@ -312,7 +312,7 @@ sub parse_links{
my $p = HTML::LinkExtor->new(\&cb);
$p->parse($text) or die;
foreach (@versions){
- my ($chkversion) = $_ =~ /^\/ledger-smb\/ledger-smb-(\d{1,3}\.\d{1,3}\.\d{1,3})\.tar\.gz$/;
+ my ($chkversion) = $_ =~ /^\/ledger-smb\/ledger-smb-(\d{1,3}\.\d{1,3}\.\d{1,3}\w*)\.tar\.gz$/;
$version = $chkversion if ($chkversion gt $version);
}
return $version;
@@ -322,7 +322,7 @@ sub cb {
# Callback function for LinkExtor
my($tag, %attr) = @_;
return if $tag ne 'a';
- return unless $attr{href} =~ /^\/ledger-smb\/ledger-smb-\d{1,3}\.\d{1,3}\.\d{1,3}\.tar\.gz$/;
+ return unless $attr{href} =~ /^\/ledger-smb\/ledger-smb-\d{1,3}\.\d{1,3}\.\d{1,3}\w*\.tar\.gz$/;
push(@versions, values %attr);
}