r43911 - /scripts/qa/packagecheck.pl

[jeremiah-guest at users.alioth.debian.org]

Author: jeremiah-guest
Date: Fri Sep 11 16:09:24 2009
New Revision: 43911

URL: http://svn.debian.org/wsvn/?sc=1&rev=43911
Log:
Minor documentation changes.

Modified:
    scripts/qa/packagecheck.pl

Modified: scripts/qa/packagecheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/packagecheck.pl?rev=43911&op=diff
==============================================================================
--- scripts/qa/packagecheck.pl (original)
+++ scripts/qa/packagecheck.pl Fri Sep 11 16:09:24 2009
@@ -9,6 +9,8 @@
 # To be run one directory above trunk/
 # (package name can be specified as the first argument in a
 # different directory with --current)
+
+##  TODO: Make this script work in a git repository as well as svn
 
 =head1 NAME
 
@@ -29,6 +31,8 @@
 But you are welcome to use whatever code you find useful here.
 
 =head1 SYNOPSIS
+
+     Run this script in a directory above trunk/
 
      packagecheck.pl [options]
 
@@ -88,7 +92,7 @@
 
 =item build_path
 
-Build the path to the dir we are checking.
+Build the path to the dir we are checking. Pass a package name as an arg.
 
 =cut
 
@@ -146,7 +150,7 @@
 
 =item testvcs
 
-Test for presence of Version Control System fields in control file, if not present 
+Test for presence of Version Control System fields in control file, if not present
 append correct field name and URLs to debian/control file.
 
 =cut
@@ -155,7 +159,7 @@
   my ($working_dir, $control) = @_;
   my @control_file = slurp $control;
   my $control_ref = \@control_file;
-  my @fields_to_check = qw ( Vcs-Svn Vcs-Browser );
+  my @fields_to_check = qw ( Vcs-Svn Vcs-Browser wsvn );
   map { # interate over each field to check, append if not found
     my $field = $_;
     if (grep /^$field/, @control_file) { print "Found $field\n"; }
@@ -164,7 +168,7 @@
 }
 
 # Process options
-if ($current) {  # check for checked-out packages in the current dir
+if ($current) {  # look for checked-out packages in the current dir
   sanity_check("$current");
   $fullpath = build_path($current);
   if (!$automatic) {
@@ -189,4 +193,5 @@
 
 =cut
 
-1;
+
+1; # End of packagecheck.pl