develooper Front page | perl.perl5.changes.mac | Postings from July 2002

Change 17670: Silent warnings in MM_MacOS

From:
Chris Nandor
Date:
July 30, 2002 06:08
Subject:
Change 17670: Silent warnings in MM_MacOS
Message ID:
p05111b03b96c3fc6f841@[10.0.1.177]
Change 17670 by pudge@pudge-mobile on 2002/07/30 03:19:03

	Silent warnings in MM_MacOS

Affected files ...

.... //depot/maint-5.8/macperl/lib/ExtUtils/MM_MacOS.pm#2 edit

Differences ...

==== //depot/maint-5.8/macperl/lib/ExtUtils/MM_MacOS.pm#2 (text) ====
Index: macperl/lib/ExtUtils/MM_MacOS.pm
--- macperl/lib/ExtUtils/MM_MacOS.pm#1~17650~	Mon Jul 22 08:27:48 2002
+++ macperl/lib/ExtUtils/MM_MacOS.pm	Mon Jul 29 20:19:03 2002
@@ -130,7 +130,7 @@
 # This Makefile is for the $self->{NAME} extension to perl.
 #
 # It was generated automatically by MakeMaker version
-# $VERSION (Revision: $Revision) from the contents of
+# $ExtUtils::MakeMaker::VERSION (Revision: $ExtUtils::MakeMaker::Revision) from the contents of
 # Makefile.PL. Don't edit this file, edit Makefile.PL instead.
 #
 #	ANY CHANGES MADE HERE WILL BE LOST!
@@ -182,7 +182,7 @@
 
     my $section;
     foreach $section ( @ExtUtils::MakeMaker::MM_Sections ){
-    	next if ($self->{SKIPHASH}{$section} == 2);
+    	next if ($self->{SKIPHASH}{$section} && $self->{SKIPHASH}{$section} == 2);
 	print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
 	$self->{ABSTRACT_FROM} = macify($self->{ABSTRACT_FROM})
 		if $self->{ABSTRACT_FROM};
@@ -347,9 +347,10 @@
 	$self->{MACPERL_INC}  = $self->{MACPERL_SRC};
     } else {
 # hmmmmmmm ... ?
-    $self->{PERL_LIB} ||= "$ENV{MACPERL}site_perl";
+	$self->{PERL_LIB}     ||= "$ENV{MACPERL}site_perl";
 	$self->{PERL_ARCHLIB} = $self->{PERL_LIB};
 	$self->{PERL_INC}     = $ENV{MACPERL};
+	$self->{PERL_SRC}     = '';
 #    	die <<END;
 #On MacOS, we need to build under the Perl source directory or have the MacPerl SDK
 #installed in the MacPerl folder.
@@ -875,7 +876,7 @@
 
 sub cflags {
     my($self,$libperl) = @_;
-    my $optimize;
+    my $optimize = '';
 
     for (map { $_ . "Optimize" } qw(MWC MWCPPC MWC68K MPW MRC MRC SC)) {
 	$optimize .= "$_ = $self->{$_}" if exists $self->{$_};
End of Patch.
-- 
Chris Nandor                      pudge@pobox.com    http://pudge.net/
Open Source Development Network    pudge@osdn.com     http://osdn.com/



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About