os2/diff.c2ph

   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 ':';