tick_quote: properly quote the string '\''

[dupemerge] / faster-dupemerge

diff --git a/faster-dupemerge b/faster-dupemerge
index 18d88cd00385815cd376e9da0c53436a0d2072f3..0ae1032f2192b4fe4d7556f8b5be4ffd9ce671a8 100755 (executable)
--- a/faster-dupemerge
+++ b/faster-dupemerge
@@ -220,7 +220,7 @@ END {
 
 sub tick_quote {
        my ($text) = (@_);
-       $text =~ s/'/'\''/go;
+       $text =~ s/'/'\\''/go;
        return "'$text'";
 }