Commit8823bc2

committed

Use a fatal warning check with what looks like a more portable error message. Error noticed by Tom and buildfarm member kite.

1 parent50a90fa commit8823bc2Copy full SHA for 8823bc2

File tree

-5

lines changed

-5

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -578,7 +578,7 @@ DO $do$ use strict; my $name = "foo"; my $ref = $$name; $do$ LANGUAGE plperl;`
`578`	`578`	`ERROR: Can't use string ("foo") as a SCALAR ref while "strict refs" in use at line 1.`
`579`	`579`	`CONTEXT: PL/Perl anonymous code block`
`580`	`580`	`-- check that we can "use warnings" (in this case to turn a warn into an error)`
`581`		`--- yields "ERROR: Useless use oflength invoid context"`
`582`		`-DO $do$ use warnings FATAL => qw(void) ;length "abc"; 1; $do$ LANGUAGE plperl;`
`583`		`-ERROR: Useless use oflength invoid context at line 1.`
	`581`	`+-- yields "ERROR: Useless use ofsort inscalar context."`
	`582`	`+DO $do$ use warnings FATAL => qw(void) ;my @y; my $x = sort @y; 1; $do$ LANGUAGE plperl;`
	`583`	`+ERROR: Useless use ofsort inscalar context at line 1.`
`584`	`584`	`CONTEXT: PL/Perl anonymous code block`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -379,6 +379,6 @@ DO $$ use blib; $$ LANGUAGE plperl;`
`379`	`379`	`DO $do$ use strict; my $name="foo"; my $ref= $$name; $do$ LANGUAGE plperl;`
`380`	`380`
`381`	`381`	`-- check that we can "use warnings" (in this case to turn a warn into an error)`
`382`		`--- yields "ERROR: Useless use oflength invoid context"`
`383`		`-DO $do$ use warnings FATAL=> qw(void) ;length"abc";1; $do$ LANGUAGE plperl;`
	`382`	`+-- yields "ERROR: Useless use ofsort inscalar context."`
	`383`	`+DO $do$ use warnings FATAL=> qw(void) ;my @y; my $x= sort @y;1; $do$ LANGUAGE plperl;`
`384`	`384`

Comments

(0)