From: Steve Hay <SteveHay@planit.com>
Date: Wed, 15 Aug 2007 10:06:20 +0000 (+0000)
Subject: Fix syntax error introduced by #31715
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a7f43cfc756647d7175b53bd957bd501a9f6ad6d;p=p5sagit%2Fp5-mst-13.2.git

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.

p4raw-id: //depot/perl@31720
---

diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
index 30d6e17..5d89fe5 100644
--- a/lib/File/Spec/Cygwin.pm
+++ b/lib/File/Spec/Cygwin.pm
@@ -109,7 +109,9 @@ Default: 1
 =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/)) {
diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index eba2171..cd41a3b 100644
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -5,7 +5,7 @@ use strict;
 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 @@ Default: 1
 
 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;