Change 31728: Clean up debug symbol files (.pdb for VC++, .tds for BCC) when running

[Steve Hay]

Change 31728 by [EMAIL PROTECTED] on 2007/08/17 10:58:46

        Clean up debug symbol files (.pdb for VC++, .tds for BCC) when running
        ExtUtils::CBuilder->new()->have_compiler()

Affected files ...

... //depot/perl/lib/ExtUtils/CBuilder/Platform/Windows.pm#11 edit

Differences ...

==== //depot/perl/lib/ExtUtils/CBuilder/Platform/Windows.pm#11 (text) ====
Index: perl/lib/ExtUtils/CBuilder/Platform/Windows.pm
--- perl/lib/ExtUtils/CBuilder/Platform/Windows.pm#10~31381~    2007-06-14 
06:12:56.000000000 -0700
+++ perl/lib/ExtUtils/CBuilder/Platform/Windows.pm      2007-08-17 
03:58:46.000000000 -0700
@@ -198,6 +198,14 @@
                                             $spec{basename}  . $cf->{lib_ext} 
);
   $spec{explib}    ||= File::Spec->catfile( $spec{builddir},
                                             $spec{basename}  . '.exp'  );
+  if ($cf->{cc} eq 'cl') {
+    $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.pdb'  );
+  }
+  elsif ($cf->{cc} eq 'bcc32') {
+    $spec{dbg_file}  ||= File::Spec->catfile( $spec{builddir},
+                                            $spec{basename}  . '.tds'  );
+  }
   $spec{def_file}  ||= File::Spec->catfile( $spec{srcdir}  ,
                                             $spec{basename}  . '.def'  );
   $spec{base_file} ||= File::Spec->catfile( $spec{srcdir}  ,
@@ -205,10 +213,10 @@
 
   $self->add_to_cleanup(
     grep defined,
-    @{[ @spec{qw(manifest implib explib def_file base_file map_file)} ]}
+    @{[ @spec{qw(manifest implib explib dbg_file def_file base_file map_file)} 
]}
   );
 
-  foreach my $opt ( qw(output manifest implib explib def_file map_file 
base_file) ) {
+  foreach my $opt ( qw(output manifest implib explib dbg_file def_file 
map_file base_file) ) {
     $self->normalize_filespecs( \$spec{$opt} );
   }
 
@@ -229,7 +237,7 @@
 
   $spec{output} =~ tr/'"//d;
   return wantarray
-    ? grep defined, @spec{qw[output manifest implib explib def_file map_file 
base_file]}
+    ? grep defined, @spec{qw[output manifest implib explib dbg_file def_file 
map_file base_file]}
     : $spec{output};
 }
 
End of Patch.