From: Slaven Rezic <slaven@rezic.de>
Date: Fri, 22 Nov 2002 14:49:14 +0000 (+0100)
Subject: read permissions for h2ph-generated files
X-Git-Tag: accepted/trunk/20130322.191538~25035
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=80d6dabb1f4e81b92db68bc68e3624f20eb37717;p=platform%2Fupstream%2Fperl.git

read permissions for h2ph-generated files
Message-Id: <200211221349.gAMDnEAK014033@vran.herceg.de>

p4raw-id: //depot/perl@18338
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 04dc132..f4b04f9 100644
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -42,6 +42,11 @@ use Config;
 use File::Path qw(mkpath);
 use Getopt::Std;
 
+# Make sure read permissions for all are set:
+if (defined umask && (umask() & 0444)) {
+    umask (umask() & ~0444);
+}
+
 getopts('Dd:rlhaQe');
 use vars qw($opt_D $opt_d $opt_r $opt_l $opt_h $opt_a $opt_Q $opt_e);
 die "-r and -a options are mutually exclusive\n" if ($opt_r and $opt_a);