[perl@18752] warnings from CGI tests under cygwin

Message-ID: <jk/U+gzkg2DE092yn@efn.org>

p4raw-id: //depot/perl@18772

diff --git a/lib/CGI.pm b/lib/CGI.pm
index 62c41ea..bd9c335 100644 (file)
--- a/lib/CGI.pm
+++ b/lib/CGI.pm
@@ -149,8 +149,8 @@ $AutoloadClass = $DefaultClass unless defined $CGI::AutoloadClass;
 # The path separator is a slash, backslash or semicolon, depending
 # on the paltform.
 $SL = {
-       UNIX=>'/', OS2=>'\\', EPOC=>'/',
-       WINDOWS=>'\\', DOS=>'\\', MACINTOSH=>':', VMS=>'/'
+    UNIX    => '/',  OS2 => '\\', EPOC      => '/', CYGWIN => '/',
+    WINDOWS => '\\', DOS => '\\', MACINTOSH => ':', VMS    => '/'
     }->{$OS};
 
 # This no longer seems to be necessary