X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/aa534ff5c7e215c8ef5cbc68519f3301b552522c..406eeb0274d918fcd0b41e84e1bcbccf21c88a1f:/utils/c2ph.PL

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;