diff options
Diffstat (limited to 'undo')
-rwxr-xr-x | undo | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -1,12 +0,0 @@ -#!/usr/bin/perl -00 - -$* = 1; -while (<>) { - if (/^do_(\w+)/) { - open(OUT, ">>do/$1"); - } - print OUT; - chop; - chop; - close OUT if chop eq '}' && chop eq "\n"; -} |