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