re: Handle backslashes and leading period

1 files changed, 2 insertions, 0 deletions

diff --git a/re b/re
index 934a137..4b6a092 100755
--- a/re
+++ b/re
@@ -111,6 +111,8 @@ while (<$fh>) {
 		while ($_ = readline $handles{$file}) {
 			$bytes += length($_);
 			last if $end and $bytes > $end;
+			s/\\/\\\\/g;
+			s/^\./\\&./;
 			print;
 		}