diff options
-rwxr-xr-x | re | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -111,6 +111,8 @@ while (<$fh>) { while ($_ = readline $handles{$file}) { $bytes += length($_); last if $end and $bytes > $end; + s/\\/\\\\/g; + s/^\./\\&./; print; } |