From 45eecc38367288aacf5426aae3ab0e60732a2c6d Mon Sep 17 00:00:00 2001
From: Ken Williams <kwilliams@cpan.org>
Date: Fri, 3 Mar 2006 23:04:38 +0000
Subject: [PATCH] Avoid a bareword-under-strict error when this sub isn't
 defined

git-svn-id: http://svn.perl.org/modules/Module-Build/trunk@5797 50811bd7-b8ce-0310-adc1-d9db26280581
---
 lib/Module/Build/Platform/Windows.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Module/Build/Platform/Windows.pm b/lib/Module/Build/Platform/Windows.pm
index 645f501f..fb99b898 100644
--- a/lib/Module/Build/Platform/Windows.pm
+++ b/lib/Module/Build/Platform/Windows.pm
@@ -105,7 +105,7 @@ sub ACTION_realclean {
 
       # 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")