From ef70fd090dedebaa9fa6938d01655806fac2561a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Wed, 6 Nov 2013 14:15:34 +0100 Subject: [PATCH] Preserve mode on pTk files MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Some pTk/*.[tm] files change mode during build. The result differs on differnt architectures and depends on external dependencies. This burderns regression tests and there is not reason why to change the mode. So this patch coerces all modes to 0644 making resulting debuginfo files uniform. Signed-off-by: Petr Písař --- pTk/mkVFunc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pTk/mkVFunc b/pTk/mkVFunc index e10a458..75194a2 100755 --- a/pTk/mkVFunc +++ b/pTk/mkVFunc @@ -19,7 +19,7 @@ sub openRO my ($fh,$file) = @_; if (-f $file && !-w $file) { - chmod(0666,$file) || warn "Cannot change permissions on $file:$!"; + chmod(0644,$file) || warn "Cannot change permissions on $file:$!"; } open($fh,">","$file~") || return 0; push(@Files,$file); @@ -33,7 +33,7 @@ END my $file = pop(@Files); if (-f $file) { - chmod(0444,"$file~") || warn "Cannot change permissions on $file:$!"; + chmod(0644,"$file~") || warn "Cannot change permissions on $file:$!"; if (!rename("$file~",$file)) { warn "Cannot rename $file to $file~ ($!), trying again with deleting $file before..."; -- 1.8.3.1