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