[p5sagit/p5-mst-13.2.git] / os2 / diff.c2ph

*** c2ph.PL~	Mon Nov 20 09:36:16 1995
--- c2ph.PL	Thu Dec 07 15:24:10 1995
***************
*** 1180,1184 ****
  close OUT or die "Can't close $file: $!";
  chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
  unlink 'pstruct';
! link c2ph, pstruct;
  exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
--- 1180,1188 ----
  close OUT or die "Can't close $file: $!";
  chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
  unlink 'pstruct';
! if (defined $Config{d_link}) {
!   link 'c2ph', 'pstruct';
! } else {
!   system $Config{cp}, 'c2ph', 'pstruct';
! }
  exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
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 ':';