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

[coke at svn.parrot.org]

Author: coke
Date: Wed Feb 17 17:51:18 2010
New Revision: 44099
URL: https://trac.parrot.org/parrot/changeset/44099

Log:
inline this sub.

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

Modified: branches/rm_cflags/config/auto/warnings.pm
==============================================================================
--- branches/rm_cflags/config/auto/warnings.pm	Wed Feb 17 16:02:09 2010	(r44098)
+++ branches/rm_cflags/config/auto/warnings.pm	Wed Feb 17 17:51:18 2010	(r44099)
@@ -133,7 +133,8 @@
         my $nocpp = ! $conf->data->get('g++');
 
         # add on some extra warnings if requested
-        $self->_add_cage_warnings($conf);
+        push @{ $self->{potential_warnings} }, @{ $self->{cage_warnings} }
+            if $conf->options->get('cage');
 
         # now try out our warnings
         for my $maybe_warning (@{ $self->{potential_warnings} }) {
@@ -160,12 +161,6 @@
     return 1;
 }
 
-sub _add_cage_warnings {
-    my ($self, $conf) = @_;
-    push @{ $self->{potential_warnings} }, @{ $self->{cage_warnings} }
-        if $conf->options->get('cage');
-}
-
 =item C<try_warning>
 
 Try a given warning to see if it is supported by the compiler.  The compiler