5 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
6 ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
7 ( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
8 die "can't locate ppc-xlate.pl";
10 open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";
26 .globl .OPENSSL_cpuid_setup
31 .globl .OPENSSL_wipe_cpu
47 .globl .OPENSSL_atomic_add
64 .globl .OPENSSL_cleanse
92 $code =~ s/\`([^\`]*)\`/eval $1/gem;