Commit | Line | Data |
82835e01 |
1 | *** c2ph.PL~ Mon Nov 20 09:36:16 1995 |
2 | --- c2ph.PL Thu Dec 07 15:24:10 1995 |
3 | *************** |
4 | *** 1180,1184 **** |
5 | close OUT or die "Can't close $file: $!"; |
6 | chmod 0755, $file or die "Can't reset permissions for $file: $!\n"; |
7 | unlink 'pstruct'; |
8 | ! link c2ph, pstruct; |
9 | exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':'; |
10 | --- 1180,1188 ---- |
11 | close OUT or die "Can't close $file: $!"; |
12 | chmod 0755, $file or die "Can't reset permissions for $file: $!\n"; |
13 | unlink 'pstruct'; |
14 | ! if (defined $Config{d_link}) { |
15 | ! link 'c2ph', 'pstruct'; |
16 | ! } else { |
17 | ! system $Config{cp}, 'c2ph', 'pstruct'; |
18 | ! } |
19 | exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':'; |