[Bps-public-commit] r10676 - bpsbuilder/Shipwright/lib/Shipwright

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Feb  2 15:16:01 2008
New Revision: 10676

Modified:
   bpsbuilder/Shipwright/lib/Shipwright/Backend.pm

Log:
added %%PERL_ARCHNAME%% templatefor build cmds

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Sat Feb  2 15:16:01 2008
@@ -465,9 +465,11 @@
     my $text = shift;
     return unless $text;
 
-    my $perl         = $args{'perl'} || $^X;
-    my $install_base = $args{'install-base'};
+    my $perl          = $args{'perl'} || $^X;
+    my $perl_archname = `$perl -MConfig -e 'print my \$Config{archname}'`;
+    my $install_base  = $args{'install-base'};
     $text =~ s/%%PERL%%/$perl/g;
+    $text =~ s/%%PERL_ARCHNAME%%/$perl_archname/g;
     $text =~ s/%%INSTALL_BASE%%/$install_base/g;
     return $text;
 }