[svn:parrot] r44634 - branches/rm_cflags/config/auto

coke at svn.parrot.org coke at svn.parrot.org
Thu Mar 4 21:15:27 UTC 2010


Author: coke
Date: Thu Mar  4 21:15:26 2010
New Revision: 44634
URL: https://trac.parrot.org/parrot/changeset/44634

Log:
Don't bother to memoize -$conf changes. Fix bug where we were not actually
TESTING THE WARNING when we decided what was valid.

Must have been a thinko during one of the rewrites - happened to work for the
gcc I was using and for non-gcc. fperrad++'s failure pointed out the problem.

Modified:
   branches/rm_cflags/config/auto/warnings.pm

Modified: branches/rm_cflags/config/auto/warnings.pm
==============================================================================
--- branches/rm_cflags/config/auto/warnings.pm	Thu Mar  4 20:53:26 2010	(r44633)
+++ branches/rm_cflags/config/auto/warnings.pm	Thu Mar  4 21:15:26 2010	(r44634)
@@ -21,9 +21,6 @@
 
 use base qw(Parrot::Configure::Step);
 
-use Memoize;
-memoize('valid_warning');
-
 use Parrot::Configure::Utils ();
 use Parrot::BuildUtil;
 
@@ -320,7 +317,7 @@
 
     my $ccflags  = $conf->data->get('ccflags');
     my $warnings = join(' ', @{$self->{'validated'}});
-    my $tryflags = "$ccflags $warnings";
+    my $tryflags = "$ccflags $warnings $warning";
 
     my $command_line = Parrot::Configure::Utils::_build_compile_command( $cc, $tryflags );
     $verbose and print '  ', $command_line, "\n";
@@ -343,7 +340,7 @@
 
     $verbose and print "  output: $output\n";
 
-    if ( $output !~ /error|warning|not supported|unrecognized/i ) {
+    if ( $output !~ /error|warning|not supported/i ) {
         push @{$self->{'validated'}}, $warning;
         $verbose and print "    valid warning: '$warning'\n";
         return 1;


More information about the parrot-commits mailing list