This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix (*glob) = ()
[perl5.git] / t / lib / warnings / sv
index ee0fdc2..64f624c 100644 (file)
@@ -341,10 +341,13 @@ Invalid conversion in sprintf: "%+2L\003" at - line 19.
 # sv.c
 use warnings 'misc' ;
 *a = undef ;
+(*c) = ();
 no warnings 'misc' ;
 *b = undef ;
+(*d) = ();
 EXPECT
 Undefined value assigned to typeglob at - line 3.
+Undefined value assigned to typeglob at - line 4.
 ########
 # sv.c
 use warnings 'numeric' ;