# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1451910833 -3600
# Node ID df77456c60c298182ad44a2bc887242d26c0a697
# Parent  17da316f1104a9e0d4b984fcd8d796dfe915c168
Add comment about backslash conversion

diff -r 17da316f1104 -r df77456c60c2 bin/once
--- a/bin/once	Mon Jan 04 13:25:15 2016 +0100
+++ b/bin/once	Mon Jan 04 13:33:53 2016 +0100
@@ -151,7 +151,10 @@
 
         # sanitize the filename
         my $filename = do {
-            $file =~ tr /\\/\//;
+	# FIXME: should we allow backslashes in filenames? It's totally legal for *nix,
+	# but may confuse win* users, for now we play safe and convert \ to _
+            $file =~ tr /\\/\//;	# convert \ to /
+	    $file =~ s/.*\///;          # poor man's basename
             $file =~ /(.*)/;
             $1;
         };