fix NAME of perl5125delta.pod

[perl5.git] / t / porting / globvar.t

diff --git a/t/porting/globvar.t b/t/porting/globvar.t
index 23f5c48..795673b 100644 (file)
--- a/t/porting/globvar.t
+++ b/t/porting/globvar.t
@@ -7,15 +7,15 @@ use Config;
 require 't/test.pl';
 
 skip_all("Code to read symbols not ported to $^O")
-    if $^O eq 'VMS' or $^O eq 'Win32';
+    if $^O eq 'VMS' or $^O eq 'MSWin32';
 
 # Not investigated *why* we don't export these, but we don't, and we've not
 # received any bug reports about it causing problems:
 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
-         watchaddr watchok
+         mod_latin1_uc modcount no_symref_sv timesbuf uudmap
+         watchaddr watchok warn_uninit_sv
      );
 
 my $trial = "nm globals$Config{_o} 2>&1";