From: Slaven Rezic Date: Fri, 22 Nov 2002 14:49:14 +0000 (+0100) Subject: read permissions for h2ph-generated files X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80d6dabb1f4e81b92db68bc68e3624f20eb37717;p=p5sagit%2Fp5-mst-13.2.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);