From 0f65ca4d0f5ec0bfa3c377c47c2f85e4e270c372 Mon Sep 17 00:00:00 2001
From: Rob van Son <r.j.j.h.vanson@gmail.com>
Date: Fri, 15 Jun 2012 09:24:59 +0200
Subject: [PATCH] Catch some nasty '-quotes

---
 CGIscriptor.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/CGIscriptor.pl b/CGIscriptor.pl
index e33c875..c9ae873 100755
--- a/CGIscriptor.pl
+++ b/CGIscriptor.pl
@@ -363,7 +363,7 @@ $ENV{"RANDOMHASHCMD"} = $RANDOMHASHCMD;
 sub hash_string # ($string) -> hex_hash
 {
 	my $string = shift || "";
-	# Catch nasty \'-quotes
+	# Catch nasty \'-quotes, embed them in '..'"'"'..'
 	$string =~ s/\'/\'\"\'\"\'/isg;
 	my $hash = `printf '%s' '$string'| $ENV{"SHASUMCMD"}`;
 	chomp($hash);
-- 
2.11.4.GIT