Escape single-quotes before using GetOptionsFromString and shellwords

PBot/FactoidCommands.pm

@@ -890,6 +890,7 @@ sub factlog {
     chomp $getopt_error;
   };
 
+  $arguments =~ s/(?<!\\)'/\\'/g;
   my ($show_hostmask, $actual_timestamp);
   my ($ret, $args) = GetOptionsFromString($arguments,
     'h'  => \$show_hostmask,

PBot/Factoids.pm

@@ -470,7 +470,7 @@ sub expand_action_arguments {
     $action =~ s/\$args/$input/g;
   }
 
-  $input =~ s/'/\\'/g if defined $input;
+  $input =~ s/(?<!\\)'/\\'/g if defined $input;
   my @args = shellwords($input);
 
   my $const_action = $action;

PBot/MessageHistory.pm

@@ -149,6 +149,7 @@ sub list_also_known_as {
 
   Getopt::Long::Configure ("bundling");
 
+  $arguments =~ s/(?<!\\)'/\\'/g;
   my ($show_hostmasks, $show_gecos, $show_nickserv, $show_id, $show_relationship, $show_weak, $dont_use_aliases_table);
   my ($ret, $args) = GetOptionsFromString($arguments,
     'h'  => \$show_hostmasks,
@@ -241,6 +242,7 @@ sub recall_message {
   foreach my $recall (@recalls) {
     my ($recall_nick, $recall_history, $recall_channel, $recall_before, $recall_after, $recall_context, $recall_count);
 
+    $recall =~ s/(?<!\\)'/\\'/g;
     my ($ret, $args) = GetOptionsFromString($recall,
       'channel|c:s'        => \$recall_channel,
       'text|t|history|h:s' => \$recall_history,

PBot/Plugins/Quotegrabs.pm

@@ -322,6 +322,7 @@ sub show_random_quotegrab {
       chomp $getopt_error;
     };
 
+    $arguments =~ s/(?<!\\)'/\\'/g;
     my ($ret, $args) = GetOptionsFromString($arguments, 
       'channel|c=s' => \$channel_search, 
       'text|t=s'    => \$text_search);

PBot/Plugins/RemindMe.pm

@@ -209,8 +209,7 @@ sub remindme {
     chomp $getopt_error;
   };
 
-  $arguments =~ s/'/\\'/g;
-
+  $arguments =~ s/(?<!\\)'/\\'/g;
   my ($ret, $args) = GetOptionsFromString($arguments,
     'r:i' => \$repeat,
     't:s' => \$alarm,