Remove leading / from filenames
authorSteve McIntyre <steve@einval.com>
Thu, 1 Mar 2012 08:29:56 +0000 (08:29 +0000)
committerSteve McIntyre <steve@einval.com>
Thu, 1 Mar 2012 08:29:56 +0000 (08:29 +0000)
mkjigsnap

index 3e60532..873a800 100755 (executable)
--- a/mkjigsnap
+++ b/mkjigsnap
@@ -376,6 +376,7 @@ while (@jigdos) {
             if (m/^(......................)=$keyword:(.*)$/) {
                 $jigsum = $1;
                 $file = $2;
+                $file =~ s?^/??;
             }
         }
         if (defined($file)) {