r42511 - /scripts/qa/packagecheck.pl
jeremiah-guest at users.alioth.debian.org
jeremiah-guest at users.alioth.debian.org
Sat Aug 22 22:25:17 UTC 2009
Author: jeremiah-guest
Date: Sat Aug 22 22:25:12 2009
New Revision: 42511
URL: http://svn.debian.org/wsvn/?sc=1&rev=42511
Log:
Working on testvcs sub.
Modified:
scripts/qa/packagecheck.pl
Modified: scripts/qa/packagecheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck.pl?rev=42511&op=diff
==============================================================================
--- scripts/qa/packagecheck.pl (original)
+++ scripts/qa/packagecheck.pl Sat Aug 22 22:25:12 2009
@@ -88,8 +88,8 @@
=cut
sub testvcs {
- my $dir = shift;
- print "Dir is $dir\n";
+ my ($dir, $package) = @_;
+ print "Working directory is $dir and package name is $package\n";
}
@@ -110,9 +110,9 @@
die "Exiting. $cwd appears to have uncommitted modifications.\n";
}
else {
- print "It appears dir is clean.\n";
+ print "It appears directory is clean.\n";
}
- testvcs($cwd)
+ testvcs($cwd, $current)
}
More information about the Pkg-perl-cvs-commits
mailing list