chiark / gitweb /
Colons evil; use underscores.
authorian <ian>
Wed, 18 Jul 2001 20:50:34 +0000 (20:50 +0000)
committerian <ian>
Wed, 18 Jul 2001 20:50:34 +0000 (20:50 +0000)
process

diff --git a/process b/process
index 56f25a5a09cc79e28b0aead15374ccd0b7262aa6..0a6dba60474ea47ac3a6bb2aa8f1497fa4a14f7b 100755 (executable)
--- a/process
+++ b/process
@@ -85,12 +85,14 @@ sub ensuredir ($) {
 
 opendir D, "files" or die $!;
 while ($if=readdir D) {
-    next unless $if =~ m/^[:a-z0-9]/;
+    next unless $if =~ m/^[_a-z0-9\\]/;
     $of= $if; 
-    $of =~ s,\:,/,g; 
+    $of =~ s,_,/,g; 
     $of =~ s,^/,,;
-    $of =~ s,\\\;,:,g;
-    $of =~ s:\\([0-9a-f][0-9a-f]): sprintf '%c', hex $1 :ge;
+    $of =~ s,//,_,g;
+    $of =~ s/\\([0-9a-f][0-9a-f]|_|\\)/
+       length $1 eq 1 ? $1 : sprintf '%c', hex $1 
+           /ge;
 
     $newf= 'new/'.$if;
     mkparents($of);