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