Attachment 820390 Details for Bug 1027305 – Fix

[patch] Fix

perl-Tk-Preserve-mode-on-pTk-files.patch (text/plain), 1.46 KB, created by Petr Pisar on 2013-11-06 14:10:32 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2013-11-06 14:10:32 UTC

Size: 1.46 KB

patch

obsolete

>From ef70fd090dedebaa9fa6938d01655806fac2561a Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
>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Å <ppisar@redhat.com>
>---
> 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
>

Actions: View | Diff

Attachments on bug 1027305: 820390