X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=inc%2FMMHelper.pm;h=02bf893b30b40bac7c22ada1f6daf27aeb937324;hb=8c70b0e6167da4bb0f3008749964f682e5c1715e;hp=a63cd5901d10b60bbd57737a33a160c1e14c842d;hpb=6bf5d14dc3eda832a81a0ad6fef0947518ad2aca;p=gitmo%2FMoose.git

diff --git a/inc/MMHelper.pm b/inc/MMHelper.pm
index a63cd59..02bf893 100644
--- a/inc/MMHelper.pm
+++ b/inc/MMHelper.pm
@@ -7,15 +7,23 @@ use Config;
 use Cwd qw( abs_path );
 use File::Basename qw( dirname );
 
-sub mm_args {
+sub ccflags_dyn {
     my $is_dev = shift;
 
-    my $ccflags = ( $Config::Config{ccflags} || '' ) . ' -I.';
-    $ccflags .= ' -Wall -Wdeclaration-after-statement'
+    my $ccflags = q<( $Config::Config{ccflags} || '' ) . ' -I.'>;
+    $ccflags .= q< . ' -Wall -Wdeclaration-after-statement'>
         if $is_dev;
 
-    my %mm = ( CCFLAGS => $ccflags );
+    return $ccflags;
+}
+
+sub ccflags_static {
+    my $is_dev = shift;
 
+    return eval(ccflags_dyn($is_dev));
+}
+
+sub mm_args {
     my ( @object, %xs );
 
     for my $xs ( glob "xs/*.xs" ) {
@@ -32,7 +40,6 @@ sub mm_args {
     }
 
     return (
-        CCFLAGS => $ccflags,
         clean   => { FILES => join( q{ }, @object ) },
         OBJECT => join( q{ }, @object ),
         XS     => \%xs,