r6422 - /scripts/qa/versioncheck.pl

dmn at users.alioth.debian.org dmn at users.alioth.debian.org
Fri Aug 10 10:52:56 UTC 2007


Author: dmn
Date: Fri Aug 10 10:52:55 2007
New Revision: 6422

URL: http://svn.debian.org/wsvn/?sc=1&rev=6422
Log:
Revert a too-quick commit

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6422&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Fri Aug 10 10:52:55 2007
@@ -266,24 +266,6 @@
     return 1 if $a;
     return -1 if $b;
     return 0;
-}
-
-sub unmangle( $ $ )
-{
-    my( $ver, $mangles ) = @_;
-
-    return $ver unless $mangles;
-
-    my @uvms = map( split(/;/, $_), @$uvms );
-
-    foreach my $uvm( @uvms )
-    {
-        eval "\$ver =~ $uvm";
-        die "<<\$_ =~ $uvm>> $@" if $@;
-        debugmsg("     mangled: $ver\n");
-    }
-
-    return $ver;
 }
 
 # RETURNS undef if all watch files point to CPAN
@@ -329,20 +311,14 @@
                     {
                         my $href = $1;
                         warn $href;
-                        push @vers, [
-                            unmangle( $1, $opts->{uversionmangle} ),
-                            $url,
-                        ] if $href =~ $filter;
+                        push @vers, [$1,$url] if $href =~ $filter;
                     }
                 }
                 else
                 {
                     while( s/(?:^|\s+)$filter(?:\s+|$)// )
                     {
-                        push @vers, [
-                            unmangle( $1, $opts->uversionmangle} ),
-                            $url,
-                        ];
+                        push @vers, [$1,$url];
                     }
                 }
             }




More information about the Pkg-perl-cvs-commits mailing list