diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-11-22 15:49:14 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-23 03:43:09 +0000 |
| commit | 80d6dabb1f4e81b92db68bc68e3624f20eb37717 (patch) | |
| tree | 6c902c30bb06655102791eb12c0abf5eedb74ecb /utils/h2ph.PL | |
| parent | 44897049c7ce4054501bf4c45cf5cb8ee2f04dc9 (diff) | |
| download | perl-80d6dabb1f4e81b92db68bc68e3624f20eb37717.tar.gz | |
read permissions for h2ph-generated files
Message-Id: <200211221349.gAMDnEAK014033@vran.herceg.de>
p4raw-id: //depot/perl@18338
Diffstat (limited to 'utils/h2ph.PL')
| -rw-r--r-- | utils/h2ph.PL | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 04dc1325a6..f4b04f9ebf 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); |