Use alternative single quote style

Author: colinnewell

lib/HTTP/Cookies.pm

@@ -621,42 +621,42 @@ sub _normalize_path  # so that plain string compare can be used
 # be in quotes which can also have escaping.
 sub _split_text {
     my $val = shift;
-    my @vals = grep { $_ ne '' } split(/([;\\"])/, $val);
+    my @vals = grep { $_ ne q{} } split(/([;\\"])/, $val);
     my @chunks;
     # divide it up into chunks to be processed.
     my $in_string = 0;
     my @current_string;
     for(my $i = 0; $i < @vals; $i++) {
         my $chunk = $vals[$i];
         if($in_string) {
-            if($chunk eq '\\') {
+            if($chunk eq q{\\}) {
                 # don't care about next char probably.
                 # having said that, probably need to be appending to the chunks
                 # just dropping this.
                 $i++;
                 if($i < @vals) {
                     push @current_string, $vals[$i];
                 }
-            } elsif($chunk eq '"') {
+            } elsif($chunk eq q{"}) {
                 $in_string = 0;
             }
             else {
                 push @current_string, $chunk;
             }
         } else {
-            if($chunk eq '"') {
+            if($chunk eq q{"}) {
                 $in_string = 1;
             }
-            elsif($chunk eq ';') {
-                push @chunks, join('', @current_string);
+            elsif($chunk eq q{;}) {
+                push @chunks, join(q{}, @current_string);
                 @current_string = ();
             }
             else {
                 push @current_string, $chunk;
             }
         }
     }
-    push @chunks, join('', @current_string) if @current_string;
+    push @chunks, join(q{}, @current_string) if @current_string;
     s/^\s+// for @chunks;
     return \@chunks;
 }