diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-02-08 17:14:10 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-02-09 11:08:25 -0800 |
| commit | a48e42054790d7e52df73e8a2c8b120da9ea6dc4 (patch) | |
| tree | 9bc53152d37c696a75e61b3bdf0708cc46aad30e /t/base | |
| parent | a18bab6ebbe98d43ddd701fa7af24cad76eabe8c (diff) | |
| download | perl-a48e42054790d7e52df73e8a2c8b120da9ea6dc4.tar.gz | |
Use ‘an’ for $/=[] error message
This says ‘an ARRAY’:
$ perl -Mstrict -e '@{"a"}'
Can't use string ("a") as an ARRAY ref while "strict refs" in use at -e line 1.
This says ‘a ARRAY’:
$ ./miniperl -e '$/=[]'
Setting $/ to a ARRAY reference is forbidden at -e line 1.
It ought to say ‘an’.
Diffstat (limited to 't/base')
| -rw-r--r-- | t/base/rs.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/base/rs.t b/t/base/rs.t index b73ef4028d..416696e9f5 100644 --- a/t/base/rs.t +++ b/t/base/rs.t @@ -250,7 +250,9 @@ sub test_bad_setting { } else { my $msg= $@ || "Zombie Error"; print "ok ",$test_count++," # \$/ = []; should die\n"; - if ($msg!~m!Setting \$\/ to a ARRAY reference is forbidden!) {print "not ";} + if ($msg!~m!Setting \$\/ to an ARRAY reference is forbidden!) { + print "not "; + } print "ok ",$test_count++," # \$/ = []; produced expected error message\n"; } if (eval {$/ = {}; 1}) { |