--- 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;
         };