# HG changeset patch
# User HackBot
# Date 1408921655 0
# Node ID 417963e20c083bed33f23ee682c3da01acbf9941
# Parent  3339ace022d7d53094b999f59656e1802b24f456
<oerjan> chmod +x ircslashes.pl; mv ircslashes.pl bin/slashes

diff -r 3339ace022d7 -r 417963e20c08 bin/slashes
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/slashes	Sun Aug 24 23:07:35 2014 +0000
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+#By Ørjan Johansen, 2009-2012.  This file is in the public domain.
+
+$| = 1;
+my $l = 0;
+
+$_ = join '', <>;
+while ($l < 512) {
+        if (s!^([^/\\]+)!! or s!^\\(.)!!s) { 
+                $l += length($1);
+                print($1);
+        }
+        else {
+            if (s!^/((?:[^/\\]|\\.)*)/((?:[^/\\]|\\.)*)/!!s) {
+                my ($s,$d) = ($1,$2);
+                $s =~ s/\\(.)/$1/gs;
+                $d =~ s/\\(.)/$1/gs;
+                while (s/(?:\Q$s\E)/$d/) { 
+                }
+            }
+            else { last; }
+        }
+}
diff -r 3339ace022d7 -r 417963e20c08 ircslashes.pl
--- a/ircslashes.pl	Sun Aug 24 23:07:01 2014 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,23 +0,0 @@
-#!/usr/bin/perl -w
-#By Ørjan Johansen, 2009-2012.  This file is in the public domain.
-
-$| = 1;
-my $l = 0;
-
-$_ = join '', <>;
-while ($l < 512) {
-        if (s!^([^/\\]+)!! or s!^\\(.)!!s) { 
-                $l += length($1);
-                print($1);
-        }
-        else {
-            if (s!^/((?:[^/\\]|\\.)*)/((?:[^/\\]|\\.)*)/!!s) {
-                my ($s,$d) = ($1,$2);
-                $s =~ s/\\(.)/$1/gs;
-                $d =~ s/\\(.)/$1/gs;
-                while (s/(?:\Q$s\E)/$d/) { 
-                }
-            }
-            else { last; }
-        }
-}