read permissions for h2ph-generated files
Slaven Rezic [Fri, 22 Nov 2002 14:49:14 +0000 (15:49 +0100)]
Message-Id: <200211221349.gAMDnEAK014033@vran.herceg.de>

p4raw-id: //depot/perl@18338

utils/h2ph.PL

index 04dc132..f4b04f9 100644 (file)
@@ -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);