Move shell_escape from CGI.pl to globals.pl

Remove CGI.pl dependency from multidiff.cgi
Bug #44642

webtools/bonsai/CGI.pl

@@ -85,13 +85,6 @@ sub url_encode3 {
     return $s;
 }
 
-# Quotify a string, suitable for invoking a shell process
-sub shell_escape {
-    my ($file) = @_;
-    $file =~ s/([ \"\'\`\~\?\$\&\|\!<>\(\)\[\]\;\:])/\\$1/g;
-    return $file;
-}
-
 # Make sure CVS revisions are in a specific format
 sub sanitize_revision {
     my ($rev) = @_;

webtools/bonsai/globals.pl

@@ -1248,4 +1248,11 @@ sub Fix_BonsaiLink {
      return $bonsai_path;
 }
 
+# Quotify a string, suitable for invoking a shell process
+sub shell_escape {
+    my ($file) = @_;
+    $file =~ s/([ \"\'\`\~\^\?\$\&\|\!<>\(\)\[\]\;\:])/\\$1/g;
+    return $file;
+}
+
 1;

webtools/bonsai/multidiff.cgi

@@ -27,7 +27,6 @@
 
 use strict;
 
-require 'CGI.pl';
 require 'globals.pl';
 
 $|=1;