Permalink
Browse files

[differences between patch application from Change 984 and Change 985]

 Title:  "ExtUtils::Manifest could truncate files during "make dist""
  From:  "James E Jurach Jr." <muaddib@arrakis.int.ein.cz>,
         koenig@kulturbox.de (Andreas J. Koenig)
Msg-ID:  <199805111048.MAA02573@arrakis.int.ein.cz>,
         <sfc90o8bgie.fsf@dubravka.in-berlin.de>
 Files:  lib/ExtUtils/Manifest.pm

 Title:  "AutoSplit/AutoLoaded subs: give useful line numbers in warnings etc"
  From:  "Jesse N. Glick" <jglick@sig.bsh.com>, koenig@anna.mind.de (Andreas
         J. Koenig), larry@wall.org (Larry Wall)
Msg-ID:  <199709292015.NAA09627@wall.org>, <342FCDDF.23534195@sig.bsh.com>,
         <sfc202c9jsb.fsf@anna.in-berlin.de>,
         <sfc3efg5rhg.fsf@dubravka.in-berlin.de>
 Files:  lib/AutoSplit.pm

p4raw-link: @984 on //depot/maint-5.004/perl: aaffd3c
p4raw-id: //depot/maint-5.004/perl@985
  • Loading branch information...
1 parent fa79461 commit cb99a88456c6181881501e9f4881bc3d3d3e919e Tim Bunce committed May 15, 1998
Showing with 234 additions and 149 deletions.
  1. +229 −148 lib/AutoSplit.pm
  2. +5 −1 lib/ExtUtils/Manifest.pm
View
@@ -236,7 +236,11 @@ sub ln {
link($srcFile, $dstFile);
local($_) = $dstFile; # chmod a+r,go-w+X (except "X" only applies to u=x)
my $mode= 0444 | (stat)[2] & 0700;
- chmod( $mode | ( $mode & 0100 ? 0111 : 0 ), $_ );
+ if (! chmod( $mode | ( $mode & 0100 ? 0111 : 0 ), $_ )) {
+ unlink $dstFile;
+ return;
+ }
+ 1;
}
sub best {

0 comments on commit cb99a88

Please sign in to comment.