[svn:parrot] r43244 - trunk/runtime/parrot/library

[fperrad at svn.parrot.org]

Author: fperrad
Date: Fri Dec 25 10:21:09 2009
New Revision: 43244
URL: https://trac.parrot.org/parrot/changeset/43244

Log:
[distutils] fix r43243

Modified:
   trunk/runtime/parrot/library/distutils.pir

Modified: trunk/runtime/parrot/library/distutils.pir
==============================================================================
--- trunk/runtime/parrot/library/distutils.pir	Fri Dec 25 09:36:44 2009	(r43243)
+++ trunk/runtime/parrot/library/distutils.pir	Fri Dec 25 10:21:09 2009	(r43244)
@@ -2311,6 +2311,8 @@
     $S1 = mk_plumage(kv :flat :named)
     $I0 = file_exists($S0)
     unless $I0 goto L1
+    $S0 = kv['__target__']
+    unless $S0 == 'plumage' goto L2
     print $S1
     goto L2
   L1:
@@ -2896,6 +2898,7 @@
 
     run_step('spec', kv :flat :named)
 
+    $S0 = get_spec(kv :flat :named)
     cmd = "rpmbuild -bs -v " . $S0
     system(cmd, 1 :named('verbose'))
 .end
@@ -3098,6 +3101,7 @@
 
     run_step('spec', kv :flat :named)
 
+    $S0 = get_spec(kv :flat :named)
     cmd = "rpmbuild -bb -v " . $S0
     system(cmd, 1 :named('verbose'))
 .end