SF.net SVN: ledger-smb: [156] trunk/setup.pl

[..hidden..]

Revision: 156
          http://svn.sourceforge.net/ledger-smb/?rev=156&view=rev
Author:   einhverfr
Date:     2006-09-26 15:26:11 -0700 (Tue, 26 Sep 2006)

Log Message:
-----------
Applying Davevg's patch for the setup.pl

Modified Paths:
--------------
    trunk/setup.pl

Modified: trunk/setup.pl
===================================================================
--- trunk/setup.pl	2006-09-26 06:17:22 UTC (rev 155)
+++ trunk/setup.pl	2006-09-26 22:26:11 UTC (rev 156)
@@ -312,7 +312,7 @@
     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 @@
     # 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);
 
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.