Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29714/lib/Module/Build/Platform
Modified Files:
Windows.pm
Log Message:
Avoid a bareword-under-strict error when this sub isn't defined
Index: Windows.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/Windows.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- Windows.pm 23 Feb 2006 04:03:52 -0000 1.30
+++ Windows.pm 3 Mar 2006 23:04:38 -0000 1.31
@@ -105,7 +105,7 @@
# Syntax differs between 9x & NT: the later requires a null arg (???)
require Win32;
- my $null_arg = (Win32::GetOSVersion == 2) ? '""' : '';
+ my $null_arg = (Win32::GetOSVersion() == 2) ? '""' : '';
my $cmd = qq(start $null_arg /min "\%comspec\%" /c del "$full_progname");
my $fh = IO::File->new(">> $basename.bat")
|
