r3662 - scripts/trunk

[Cyril Brulebois]

Author: kibi-guest
Date: 2007-08-13 12:38:28 +0000 (Mon, 13 Aug 2007)
New Revision: 3662

Modified:
   scripts/trunk/XS-Vcs-fields-update.pl
Log:
Skip trailing slashes in package name(s) if present

Modified: scripts/trunk/XS-Vcs-fields-update.pl
===================================================================
--- scripts/trunk/XS-Vcs-fields-update.pl	2007-08-13 12:38:01 UTC (rev 3661)
+++ scripts/trunk/XS-Vcs-fields-update.pl	2007-08-13 12:38:28 UTC (rev 3662)
@@ -31,6 +31,9 @@
 
 
 foreach my $package (@packages) {
+    # Strip the trailing slash (might be added by shell completion)
+    $package =~ s{/$}{};
+
     # Check the file actually exists
     if ( ! -f "$package/debian/control" ) {
         warn "Unable to open $package/debian/control: SKIPPING";