Change 31720: Fix syntax error introduced by #31715

[Steve Hay]

Change 31720 by [EMAIL PROTECTED] on 2007/08/15 10:06:20

        Fix syntax error introduced by #31715
        
        Fix "Useless use of a constant in void context" warning introduced by
        #31709 which was causing failures in ext/Compress/Zlib/t/05examples.t
        and ext/IO_Compress_Zlib/t/010examples.t on Win32.

Affected files ...

... //depot/perl/lib/File/Spec/Cygwin.pm#18 edit
... //depot/perl/lib/File/Spec/Win32.pm#45 edit

Differences ...

==== //depot/perl/lib/File/Spec/Cygwin.pm#18 (text) ====
Index: perl/lib/File/Spec/Cygwin.pm
--- perl/lib/File/Spec/Cygwin.pm#17~31715~      2007-08-15 02:54:14.000000000 
-0700
+++ perl/lib/File/Spec/Cygwin.pm        2007-08-15 03:06:20.000000000 -0700
@@ -109,7 +109,9 @@
 =cut
 
 sub case_tolerant () {
-  if ($^O ne 'cygwin') return 1;
+  if ($^O ne 'cygwin') {
+    return 1;
+  }
   my $drive = shift || "/cygdrive/c";
   my $mntopts = Cygwin::mount_flags($drive);
   if ($mntopts and ($mntopts =~ /,managed/)) {

==== //depot/perl/lib/File/Spec/Win32.pm#45 (text) ====
Index: perl/lib/File/Spec/Win32.pm
--- perl/lib/File/Spec/Win32.pm#44~31709~       2007-08-13 23:57:08.000000000 
-0700
+++ perl/lib/File/Spec/Win32.pm 2007-08-15 03:06:20.000000000 -0700
@@ -5,7 +5,7 @@
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '1.6';
+$VERSION = '1.6_01';
 
 @ISA = qw(File::Spec::Unix);
 
@@ -89,7 +89,7 @@
 
 sub case_tolerant () {
   eval { require Win32API::File; } or return 1;
-  my $drive = shift or "C:";
+  my $drive = shift || "C:";
   my $osFsType = "\0"x256;
   my $osVolName = "\0"x256;
   my $ouFsFlags = 0;
End of Patch.