r42035 - /scripts/qa/packagecheck.pl

jeremiah-guest at users.alioth.debian.org jeremiah-guest at users.alioth.debian.org
Mon Aug 17 19:48:31 UTC 2009


Author: jeremiah-guest
Date: Mon Aug 17 19:48:25 2009
New Revision: 42035

URL: http://svn.debian.org/wsvn/?sc=1&rev=42035
Log:
Checking in some changes but mostly code to test if we have a 'clean' svn dir.

Modified:
    scripts/qa/packagecheck.pl

Modified: scripts/qa/packagecheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck.pl?rev=42035&op=diff
==============================================================================
--- scripts/qa/packagecheck.pl (original)
+++ scripts/qa/packagecheck.pl Mon Aug 17 19:48:25 2009
@@ -83,6 +83,14 @@
     my @svnrev = capture("svn up $cwd");
     print $svnrev[-1];
   }
+  print "Checking for uncommitted modifications to directory.\n";
+  my @svnmods = capture("svn st $cwd");
+  if ($svnmods[-1]) {
+    print map { $_ } @svnmods;
+  } 
+  else {
+    print "It appears dir is clean.\n";
+  }
 }
 
 




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