Skip Menu |

This queue is for tickets about the ExtUtils-F77 CPAN distribution.

Report information
The Basics
Id: 4929
Status: resolved
Priority: 0/
Queue: ExtUtils-F77

People
Owner: Nobody in particular
Requestors: djburke [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.14
Fixed in: (no value)



Subject: Warning messages on OS-X
On my OS-X (10.3.2) system using the Apple version of gcc and the fink version of g77, make test complains with: Use of uninitialized value in concatenation (.) or string at /Users/dburke/local/perl/Library/Perl/5.8.1/ExtUtils/F77.pm line 305. ExtUtils::F77: Using system=Darwin compiler= Use of uninitialized value in hash element at /Users/dburke/local/perl/Library/Perl/5.8.1/ExtUtils/F77.pm line 316. Use of uninitialized value in hash element at /Users/dburke/local/perl/Library/Perl/5.8.1/ExtUtils/F77.pm line 316. Use of uninitialized value in string ne at /Users/dburke/local/perl/Library/Perl/5.8.1/ExtUtils/F77.pm line 317. I've attatched a patch ('diff -u') against F77.pm that removes these warnings, Doug
--- F77.pm~ Fri Jun 15 16:04:17 2001 +++ F77.pm Tue Jan 13 16:04:01 2004 @@ -302,7 +302,8 @@ $system = 'Cygwin' if $system =~ /Cygwin/; $compiler = get $F77config{$system}{DEFAULT} unless $compiler; - print "$Pkg: Using system=$system compiler=$compiler\n"; + print "$Pkg: Using system=$system compiler=" . + (defined $compiler ? $compiler : "<undefined>") . "\n"; if (defined($ENV{F77LIBS})) { print "Overriding Fortran libs from value of enviroment variable F77LIBS = $ENV{F77LIBS}\n"; @@ -312,7 +313,7 @@ # Try this combination - if (defined( $F77config{$system} )){ + if ( defined( $compiler ) and defined( $F77config{$system} )){ my $flibs = get ($F77config{$system}{$compiler}{Link}); if ($flibs ne "") { $Runtime = $flibs;# . gcclibs();