outdated-perl-ports diff

[Giovanni Bechis]

Little diff to print the subdirectory the port is on, this way it's 
easier to find the port to update.
Comments ? Ok ?
 Cheers
  Giovanni
Index: outdated-perl-ports
===================================================================
RCS file: /cvs/ports/infrastructure/build/outdated-perl-ports,v
retrieving revision 1.3
diff -u -p -r1.3 outdated-perl-ports
--- outdated-perl-ports 17 Jan 2007 19:44:19 -0000      1.3
+++ outdated-perl-ports 2 Apr 2009 16:18:10 -0000
@@ -25,6 +25,7 @@ my $PORTSDIR= $ENV{PORTSDIR} || "/usr/po
 my %Modules; # What CPAN thinks is up to date
 my $line; # lines we process
 my @line; # $line run through split
+my @dir; # pkg subdir
 
 {
        open(MODULES, "ftp -V -o - $CPAN_packages_details 2>/dev/null | gzip 
-cd |") 
@@ -55,7 +56,8 @@ my @line; # $line run through split
                if (defined $ENV{DEBUG}){print STDERR "$1\t$2\t$3\n";}
 
                if ((defined $Modules{$2}) and ($Modules{$2} gt $3)) {
-                       print STDOUT "Out of date: $1 vs $Modules{$2}. 
$line[5]\n";
+                       @dir = split /\//, $line[4];
+                       print STDOUT "Out of date: $dir[0]/$1 vs $Modules{$2}. 
$line[5]\n";
                }
        }