diff options
| author | John Lightsey <lightsey@debian.org> | 2016-12-23 12:35:45 -0500 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2016-12-23 13:52:28 -0500 |
| commit | 1ae6ead94905dfee43773cf3b18949c91b33f9d1 (patch) | |
| tree | 6a54545d46d1ae3f61696e23111a21c736b3b2b5 /win32/bin/search.pl | |
| parent | 7527883f8c7b71d808abdbd3cff07f61280a42b5 (diff) | |
| download | perl-1ae6ead94905dfee43773cf3b18949c91b33f9d1.tar.gz | |
Switch most open() calls to three-argument form.
Switch from two-argument form. Filehandle cloning is still done with the two
argument form for backward compatibility.
Committer: Get all porting tests to pass. Increment some $VERSIONs.
Run: ./perl -Ilib regen/mk_invlists.pl; ./perl -Ilib regen/regcharclass.pl
For: RT #130122
Diffstat (limited to 'win32/bin/search.pl')
| -rw-r--r-- | win32/bin/search.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win32/bin/search.pl b/win32/bin/search.pl index 8f4d7391f3..cd6e6adf5e 100644 --- a/win32/bin/search.pl +++ b/win32/bin/search.pl @@ -626,7 +626,7 @@ sub read_rc { package magic; $^W= 0; } ## turn off warnings for when we run EXPR's - unless (open(RC, "$file")) { + unless (open(RC, '<', $file)) { $use_default=1; $file = "<internal default startup file>"; ## no RC file -- use this default. @@ -950,7 +950,7 @@ sub dodir } if ($DO_MAGIC_TESTS) { - if (!open(FILE_IN, $file)) { + if (!open(FILE_IN, '<', $file)) { &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT; warn qq/$0: can't open: $file\n/; next; @@ -990,7 +990,7 @@ sub dodir next; } else { ## if we weren't doing magic tests, file won't be open yet... - if (!$DO_MAGIC_TESTS && !open(FILE_IN, $file)) { + if (!$DO_MAGIC_TESTS && !open(FILE_IN, '<', $file)) { &clear_message if $VERBOSE && $STDERR_SCREWS_STDOUT; warn qq/$0: can't open: $file\n/; next; |