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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  5 08:36:16 2008
New Revision: 10724

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

Log:
fixed typo

Modified: bpsbuilder/Shipwright/lib/Shipwright/Backend.pm
==============================================================================
--- bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	(original)
+++ bpsbuilder/Shipwright/lib/Shipwright/Backend.pm	Tue Feb  5 08:36:16 2008
@@ -474,7 +474,7 @@
     return unless $text;
 
     my $perl          = $args{'perl'} || $^X;
-    my $perl_archname = `$perl -MConfig -e 'print my \$Config{archname}'`;
+    my $perl_archname = `$perl -MConfig -e 'print \$Config{archname}'`;
     my $install_base  = $args{'install-base'};
     $text =~ s/%%PERL%%/$perl/g;
     $text =~ s/%%PERL_ARCHNAME%%/$perl_archname/g;