From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 9 Jul 2001 03:42:20 +0000 (+0000)
Subject: remove *.pdb files on windows upon $(MAKE) clean (fixes
X-Git-Tag: accepted/trunk/20130322.191538~30979
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1f50c5a9cc362b5e276f2064562b077f152c5252;p=platform%2Fupstream%2Fperl.git

remove *.pdb files on windows upon $(MAKE) clean (fixes
failure of ExtUtils.t#27 when built in debug mode)

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

diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm
index be00a6b..b7a8f81 100644
--- a/lib/ExtUtils/MM_Win32.pm
+++ b/lib/ExtUtils/MM_Win32.pm
@@ -535,16 +535,15 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)\.exists
 
 sub clean
 {
- my ($self) = @_;
- my $s = &ExtUtils::MM_Unix::clean;
- if ($GCC) {
-	$s .= <<'END';
+    my ($self) = @_;
+    my $s = &ExtUtils::MM_Unix::clean;
+    my $clean = $GCC ? 'dll.base dll.exp' : '*.pdb';
+    $s .= <<END;
 clean ::
-	-$(RM_F) dll.base dll.exp
+	-\$(RM_F) $clean
 
 END
- }
- return $s;
+    return $s;
 }