This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
globvar.t: Skip PL_warn_uninit_sv
authorFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 05:07:07 +0000 (22:07 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 6 Oct 2011 20:01:17 +0000 (13:01 -0700)
Until someone can explain to me why these sorts of things are exported,
I’ll skipping the test.  Nothing is failing for me (yet), and it is
not clear that we want to support this name for ever.

t/porting/globvar.t

index f34ab43..aa26695 100644 (file)
@@ -15,7 +15,7 @@ my %skip = map { ("PL_$_", 1) }
     qw(
          DBcv bitcount cshname force_link_funcs generation lastgotoprobe
          latin1_lc mod_latin1_uc modcount no_symref_sv timesbuf uudmap
     qw(
          DBcv bitcount cshname force_link_funcs generation lastgotoprobe
          latin1_lc mod_latin1_uc modcount no_symref_sv timesbuf uudmap
-         watchaddr watchok
+         watchaddr watchok warn_uninit_sv
      );
 
 my $trial = "nm globals$Config{_o} 2>&1";
      );
 
 my $trial = "nm globals$Config{_o} 2>&1";