[svn:parrot] r17040 - branches/buildtools/lib/Parrot/Ops2c

[jkeenan]

Author: jkeenan
Date: Sun Feb 18 08:48:55 2007
New Revision: 17040

Modified:
   branches/buildtools/lib/Parrot/Ops2c/Utils.pm

Log:
1.  In new(), eliminated this branch:  $base =~ m!^src/dynoplibs/!.  (a) I
couldn't reach it during testing/coverage analysis.  (b) It's never called
during 'make'.
2.  Corrected absence of 'script' key in _prepare_non_core().


Modified: branches/buildtools/lib/Parrot/Ops2c/Utils.pm
==============================================================================
--- branches/buildtools/lib/Parrot/Ops2c/Utils.pm       (original)
+++ branches/buildtools/lib/Parrot/Ops2c/Utils.pm       Sun Feb 18 08:48:55 2007
@@ -51,7 +51,7 @@
     # create a temp file and rename it
     my $source = "src/ops/$base_ops_stub.c.temp";
 
-    if ( $base =~ m!^src/dynoplibs/! || $flagref->{dynamic} ) {
+    if ( $flagref->{dynamic} ) {
         $source             =~ s!src/ops/!!;
         $header             = $base_ops_h;
         $base               =~ s!^.*[/\\]!!;
@@ -75,6 +75,7 @@
             file        => $file,
             argv        => [ @argv ],
             flag        => $flagref,
+            script      => $argsref->{script},
         } );
     }