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 /lib/vmsish.t | |
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 'lib/vmsish.t')
-rw-r--r-- | lib/vmsish.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/vmsish.t b/lib/vmsish.t index f2b451d918..7681f07f60 100644 --- a/lib/vmsish.t +++ b/lib/vmsish.t @@ -106,7 +106,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); ok(($msg !~ /ABORT/),"vmsish ERR exit, vmsish hushed at runtime, DCL error message check"); local *TEST; - open(TEST,'>vmsish_test.pl') || die('not ok ?? : unable to open "vmsish_test.pl" for writing'); + open(TEST,'>','vmsish_test.pl') || die('not ok ?? : unable to open "vmsish_test.pl" for writing'); print TEST "#! perl\n"; print TEST "use vmsish qw(hushed);\n"; print TEST "\$obvious = (\$compile(\$error;\n"; @@ -137,7 +137,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); # we create a file rather than using an existing one for the stat() test. my $file = 'sys$scratch:vmsish_t_flirble.tmp'; - open TMP, ">$file" or die "Couldn't open file $file"; + open TMP, '>', $file or die "Couldn't open file $file"; close TMP; END { 1 while unlink $file; } @@ -187,7 +187,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]"); # they were turned off in invoking procedure sub do_a_perl { local *P; - open(P,'>vmsish_test.com') || die('not ok ?? : unable to open "vmsish_test.com" for writing'); + open(P,'>','vmsish_test.com') || die('not ok ?? : unable to open "vmsish_test.com" for writing'); print P "\$ set message/facil/sever/ident/text\n"; print P "\$ define/nolog/user sys\$error _nla0:\n"; print P "\$ $Invoke_Perl @_\n"; |