r3471 - scripts/trunk

[Cyril Brulebois]

Author: kibi-guest
Date: 2007-07-28 06:36:17 +0000 (Sat, 28 Jul 2007)
New Revision: 3471

Modified:
   scripts/trunk/XS-Vcs-fields-update.pl
Log:
Fix some typos

Modified: scripts/trunk/XS-Vcs-fields-update.pl
===================================================================
--- scripts/trunk/XS-Vcs-fields-update.pl	2007-07-28 06:13:24 UTC (rev 3470)
+++ scripts/trunk/XS-Vcs-fields-update.pl	2007-07-28 06:36:17 UTC (rev 3471)
@@ -1,15 +1,14 @@
 #!/usr/bin/perl -w
 #
-# Tiny script to add/check that the appopriate XS-Vcs-* fields are present
+# Tiny script to check that the appopriate XS-Vcs-* fields are present
 # in the control file of some packages, eventually add or modify them.
 #
 # Cyril Brulebois <cyril.brulebois at enst-bretagne.fr>, 2007
 #
-# This program is free software; you can redistribute it and/or modify it
-# under the same terms as Perl itself.
-#
-# 
+# This program is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
 
+
 use strict;
 
 # Our XS-* fields
@@ -96,7 +95,7 @@
     open $control_fh, '>', "$package/debian/control"
         or die "Oops, unable to open $package/debian/control";
 
-    # Slurp it
+    # Output it
     print $control_fh $control;
 
     # Close it