r47055 - /trunk/libcatalyst-modules-perl/tarballs/check-upstream-versions

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Nov 11 21:24:20 2009
New Revision: 47055

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47055
Log:
attempt to make $upstream_link in tarballs/check-upstream-versions work with the search.cpan.org watch lines

Modified:
    trunk/libcatalyst-modules-perl/tarballs/check-upstream-versions

Modified: trunk/libcatalyst-modules-perl/tarballs/check-upstream-versions
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcatalyst-modules-perl/tarballs/check-upstream-versions?rev=47055&op=diff
==============================================================================
--- trunk/libcatalyst-modules-perl/tarballs/check-upstream-versions (original)
+++ trunk/libcatalyst-modules-perl/tarballs/check-upstream-versions Wed Nov 11 21:24:20 2009
@@ -168,7 +168,8 @@
 							
 			my @found = $indexes{$u_dir} =~ m!$u_file!g;
 			$upstream_version = maxstr(@found);
-			$upstream_link = qq{$u_dir/$base-$upstream_version.tar.gz}; 
+			my @links = $indexes{$u_dir} =~ m!"(/CPAN/.+$base-$upstream_version.+)"!;
+			$upstream_link = qq{http://search.cpan.org$links[0]}; 
 		}
 		else
 		{