diff options
Diffstat (limited to 'src/pl/plperl/expected/plperl.out')
| -rw-r--r-- | src/pl/plperl/expected/plperl.out | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl.out b/src/pl/plperl/expected/plperl.out index ebf9afd904..0e7c65dc2b 100644 --- a/src/pl/plperl/expected/plperl.out +++ b/src/pl/plperl/expected/plperl.out @@ -577,3 +577,8 @@ CONTEXT: PL/Perl anonymous code block DO $do$ use strict; my $name = "foo"; my $ref = $$name; $do$ LANGUAGE plperl; ERROR: Can't use string ("foo") as a SCALAR ref while "strict refs" in use at line 1. CONTEXT: PL/Perl anonymous code block +-- check that we can "use warnings" (in this case to turn a warn into an error) +-- yields "ERROR: Useless use of length in void context" +DO $do$ use warnings FATAL => qw(void) ; length "abc" ; 1; $do$ LANGUAGE plperl; +ERROR: Useless use of length in void context at line 1. +CONTEXT: PL/Perl anonymous code block |