[p5sagit/p5-mst-13.2.git] / t / pragma / warn / perl

  perl.c	AOK

  gv_check(defstash)
	Name \"%s::%s\" used only once: possible typo 


__END__
# perl.c
use warning 'once' ;
$x = 3 ;
EXPECT
Name "main::x" used only once: possible typo at - line 3.
Commit	Line	Data
599cee73	1	perl.c AOK
	2
	3	gv_check(defstash)
	4	Name \"%s::%s\" used only once: possible typo
	5
	6
	7	__END__
	8	# perl.c
	9	use warning 'once' ;
	10	$x = 3 ;
	11	EXPECT
	12	Name "main::x" used only once: possible typo at - line 3.