X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=utils%2Fc2ph.PL;h=39545e3f8ac043b71e9e496e4ebda22e51e9a97c;hb=802134916c56985ba8dc700565240474646eb9f7;hp=799e39fc7c12d69cff03f973c9740819549aa239;hpb=aa534ff5c7e215c8ef5cbc68519f3301b552522c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 799e39f..39545e3 100644
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -1320,7 +1320,7 @@ EOF
 	$intrinsics{$_[1]} = $template{$_[0]};
     }
     close(PIPE) || die "couldn't read intrinsics!";
-    unlink($TMP, '$SAFEDIR/a.out');
+    unlink($TMP, "$SAFEDIR/a.out");
     print STDERR "done\n" if $trace;
 }
 
@@ -1435,9 +1435,9 @@ sub repeat_template {
 close OUT or die "Can't close $file: $!";
 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
 unlink 'pstruct';
-print "Linking c2ph to pstruct.\n";
+print "Linking $file to pstruct.\n";
 if (defined $Config{d_link}) {
-  link 'c2ph', 'pstruct';
+    link $file, 'pstruct';
 } else {
   unshift @INC, '../lib';
   require File::Copy;