From 071e6b84e51733024bc383ec15981f44c4d4a53c Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 8 Aug 2003 04:28:44 +0000
Subject: Retract PASTHRU* changes as recommended by Schwern.

p4raw-id: //depot/perl@20560
---
 lib/ExtUtils/MM_Win32.pm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'lib/ExtUtils/MM_Win32.pm')

diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm
index 004694c15b..d05c87054b 100644
--- a/lib/ExtUtils/MM_Win32.pm
+++ b/lib/ExtUtils/MM_Win32.pm
@@ -430,10 +430,8 @@ banner.
 
 sub pasthru {
     my($self) = shift;
-    my $pasthru = $self->SUPER::pasthru();
-    $pasthru =~ s/PASTHRU\s*=\s*/PASTHRU = -nologo / if $NMAKE;
-    return $pasthru;                                                           
- }
+    return "PASTHRU = " . ($NMAKE ? "-nologo" : "");
+}
 
 
 =item oneliner (o)
-- 
cgit v1.2.1