1 *** c2ph.PL~ Mon Nov 20 09:36:16 1995
2 --- utils/c2ph.PL Thu Dec 07 15:24:10 1995
5 close OUT or die "Can't close $file: $!";
6 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
9 exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
11 close OUT or die "Can't close $file: $!";
12 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
14 ! if (defined $Config{d_link}) {
15 ! link 'c2ph', 'pstruct';
17 ! system $Config{cp}, 'c2ph', 'pstruct';
19 exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';