From: ian <ian>
Date: Wed, 18 Jul 2001 20:50:34 +0000 (+0000)
Subject: Colons evil; use underscores.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=ian-dotfiles.git;a=commitdiff_plain;h=db63b537826068dbcd6545609ed8d3038292a6c3

Colons evil; use underscores.
---

diff --git a/process b/process
index 56f25a5..0a6dba6 100755
--- 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);