t/pragma/warn/perl

   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.