X-Git-Url: https://git.librecmc.org/?a=blobdiff_plain;f=crypto%2Fppccpuid.pl;h=b136c4d3dc872ac4e178bd3cbe0bf2e803c08061;hb=34d05a402325411ff80cb8aa90044550556db2bd;hp=f1c856ff83215e57f5a52d887771dcab41ff6230;hpb=9d35d08ab64d76f65261b1b1d524983c3a74b30f;p=oweals%2Fopenssl.git

diff --git a/crypto/ppccpuid.pl b/crypto/ppccpuid.pl
index f1c856ff83..b136c4d3dc 100755
--- a/crypto/ppccpuid.pl
+++ b/crypto/ppccpuid.pl
@@ -1,16 +1,15 @@
 #!/usr/bin/env perl
 
-$output = shift;
+$flavour = shift;
 
 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
 ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
 ( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
 die "can't locate ppc-xlate.pl";
 
-( defined shift || open STDOUT,"| $^X $xlate $output" ) ||
-	die "can't call $xlate: $!";
+open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";
 
-if ($output=~/64/) {
+if ($flavour=~/64/) {
     $CMPLI="cmpldi";
     $SHRLI="srdi";
     $SIGNX="extsw";