summaryrefslogtreecommitdiff
path: root/utils/c2ph.PL
diff options
context:
space:
mode:
authorJohn E. Malmberg <wb8tyw@qsl.net>2005-08-10 19:26:03 -0400
committerH.Merijn Brand <h.m.brand@xs4all.nl>2005-08-11 07:35:27 +0000
commit16ed468695c21630f18883bfbedc3d5170ddc8b2 (patch)
treedc0fb151b14d61b21fd69a495a06aee634f4f01a /utils/c2ph.PL
parent6cd63c21c135f707c2046a8512b70b74c3e1000c (diff)
downloadperl-16ed468695c21630f18883bfbedc3d5170ddc8b2.tar.gz
[patch] blead@25282 - VMS specific fixes. [2nd try]
From: "John E. Malmberg" <wb8tyw@qsl.net> Message-ID: <42FAC54B.2050207@qsl.net> p4raw-id: //depot/perl@25284
Diffstat (limited to 'utils/c2ph.PL')
-rw-r--r--utils/c2ph.PL4
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 799e39fc7c..11ab6064d0 100644
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -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;