[Pkg-mediawiki-commits] r182 - mediawiki-extensions/trunk

[Thorsten Glaser]

Author: tg
Date: 2010-06-29 08:58:08 +0000 (Tue, 29 Jun 2010)
New Revision: 182

Modified:
   mediawiki-extensions/trunk/check_versions.pl
Log:
another rather large speedup: run ?\226?\128?\156svn ls?\226?\128?\157 only once per remote directory


Modified: mediawiki-extensions/trunk/check_versions.pl
===================================================================
--- mediawiki-extensions/trunk/check_versions.pl	2010-06-29 08:06:08 UTC (rev 181)
+++ mediawiki-extensions/trunk/check_versions.pl	2010-06-29 08:58:08 UTC (rev 182)
@@ -23,6 +23,7 @@
 my $file = shift;
 my $redirect = ">/dev/null 2>&1" unless defined $options{v} ;
 my %allfiles;
+my %listdirs;
 
 open (F, $file);
 while (<F>) {
@@ -159,11 +160,16 @@
   }
   my $dirname = `dirname $url` ;
   $dirname =~ s/[\n\r]+$//;
-  my $list = (defined $options{s}) ? "" : `LC_ALL=C svn list $dirname` ;
-  # Avoid listing files in extensions/
-  my $dir = `basename $dirname` ;
-  $dir =~ s/[\n\r\/]+$//;
-  add_other ($dirname,$list) unless (("$dir" eq "extensions") || (defined $options{s})) ;
+  if ((!defined $options{s}) && (!defined $listdirs{$dirname})) {
+    # Avoid listing files in extensions/
+    my $dir = `basename $dirname` ;
+    $dir =~ s/[\n\r\/]+$//;
+    if ("$dir" ne "extensions") {
+      my $list = `LC_ALL=C svn list $dirname`;
+      add_other($dirname,$list);
+    }
+    $listdirs{$dirname} = 1;
+  }
   push @new,"$url - $extname - $package - $basedir - $link - $latest_revision\n" ;
   print "$url:\noutdated: local revison = $revision, newest = $latest_revision\n" and
   download_latest($url,$extname,$basedir,$package,$link,$revision)