Perl 5.12.2 from CPAN

7 files changed, 59 insertions, 185 deletions

diff --git a/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.c b/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.c
index 5d782ac75be..ca5536e67a4 100644
--- a/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.c
+++ b/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.c
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2008 Mark Shelor, All Rights Reserved
  *
- * Version: 5.71
- * Wed Feb 29 04:06:10 MST 2012
+ * Version: 5.47
+ * Wed Apr 30 04:00:54 MST 2008
  *
  */
 
diff --git a/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.h b/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.h
index ce592777d16..b2f5795f055 100644
--- a/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.h
+++ b/gnu/usr.bin/perl/cpan/Digest-SHA/src/hmac.h
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2012 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2008 Mark Shelor, All Rights Reserved
  *
- * Version: 5.71
- * Wed Feb 29 04:06:10 MST 2012
+ * Version: 5.47
+ * Wed Apr 30 04:00:54 MST 2008
  *
  */
 
@@ -37,27 +37,21 @@ int		 hmacclose	(_HMAC_STATE);
 
 #ifndef SHA_PERL_MODULE
 
-unsigned char	*hmac1digest		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac1hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac1base64		(_HMAC_DATA, _HMAC_KEY);
-unsigned char	*hmac224digest		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac224hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac224base64		(_HMAC_DATA, _HMAC_KEY);
-unsigned char	*hmac256digest		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac256hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac256base64		(_HMAC_DATA, _HMAC_KEY);
-unsigned char	*hmac384digest		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac384hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac384base64		(_HMAC_DATA, _HMAC_KEY);
-unsigned char	*hmac512digest		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac512hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac512base64		(_HMAC_DATA, _HMAC_KEY);
-unsigned char	*hmac512224digest	(_HMAC_DATA, _HMAC_KEY);
-char		*hmac512224hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac512224base64	(_HMAC_DATA, _HMAC_KEY);
-unsigned char	*hmac512256digest	(_HMAC_DATA, _HMAC_KEY);
-char		*hmac512256hex		(_HMAC_DATA, _HMAC_KEY);
-char		*hmac512256base64	(_HMAC_DATA, _HMAC_KEY);
+unsigned char	*hmac1digest	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac1hex	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac1base64	(_HMAC_DATA, _HMAC_KEY);
+unsigned char	*hmac224digest	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac224hex	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac224base64	(_HMAC_DATA, _HMAC_KEY);
+unsigned char	*hmac256digest	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac256hex	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac256base64	(_HMAC_DATA, _HMAC_KEY);
+unsigned char	*hmac384digest	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac384hex	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac384base64	(_HMAC_DATA, _HMAC_KEY);
+unsigned char	*hmac512digest	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac512hex	(_HMAC_DATA, _HMAC_KEY);
+char		*hmac512base64	(_HMAC_DATA, _HMAC_KEY);
 
 #endif
 
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.t b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.t
index 03ecc5b73b0..98c6320792a 100755
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.t
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.t
@@ -118,8 +118,6 @@ L<   aha>
 L<oho   >
 L<"Warnings"> this one is ok
 L</unescaped> ok too, this POD has an X of the same name
-L<http://www.perl.org> this is OK
-L<The Perl Home Page|http://www.perl.org> this is also OK
 
 =head2 Warnings
 
@@ -194,15 +192,6 @@ we already have a head Misc
 
 =head2 another one
 
-=head2 the next line should be empty
-=head2 ... but there is a command instead
-
-And here is some text
-=head2 again followed by a command
-
-  verbatim
-=item line missing
-
 previous section is empty!
 
 =head1 LINK TESTS
@@ -217,25 +206,4 @@ trigger a podchecker warning (using bleadperl) :
 
 =cut
 
-=pod
-
-=head1 ON-OFF tests
-
-The above =pod is OK. The following =cut is ok, the one after not.
-
-=cut
-
-# some comment or code here, not POD
-
-=cut
-
-# more code
-
-=head2 This opens POD
-
-=pod
-
-And the =pod above is too much.
-
-=cut
 
diff --git a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.xr b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.xr
index 8c16609b208..5b40d7a138c 100644
--- a/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.xr
+++ b/gnu/usr.bin/perl/cpan/Pod-Parser/t/pod/poderrs.xr
@@ -27,27 +27,21 @@
 *** ERROR: malformed link L<> : empty link at line 116 in file t/pod/poderrs.t
 *** WARNING: ignoring leading whitespace in link at line 117 in file t/pod/poderrs.t
 *** WARNING: ignoring trailing whitespace in link at line 118 in file t/pod/poderrs.t
-*** WARNING: (section) in 'passwd(5)' deprecated at line 126 in file t/pod/poderrs.t
-*** WARNING: node '$|' contains non-escaped | or / at line 127 in file t/pod/poderrs.t
-*** WARNING: alternative text '$|' contains non-escaped | or / at line 127 in file t/pod/poderrs.t
-*** ERROR: Spurious character(s) after =back at line 133 in file t/pod/poderrs.t
-*** ERROR: Nonempty Z<> at line 147 in file t/pod/poderrs.t
-*** ERROR: Empty X<> at line 149 in file t/pod/poderrs.t
-*** WARNING: preceding non-item paragraph(s) at line 155 in file t/pod/poderrs.t
-*** WARNING: No argument for =item at line 157 in file t/pod/poderrs.t
-*** WARNING: previous =item has no contents at line 159 in file t/pod/poderrs.t
-*** WARNING: No items in =over (at line 167) / =back list at line 169 in file t/pod/poderrs.t
-*** ERROR: Spurious text after =pod at line 175 in file t/pod/poderrs.t
-*** ERROR: Spurious text after =cut at line 179 in file t/pod/poderrs.t
-*** WARNING: empty section in previous paragraph at line 195 in file t/pod/poderrs.t
-*** ERROR: Apparent command =head2 not preceded by blank line at line 198 in file t/pod/poderrs.t
-*** WARNING: empty section in previous paragraph at line 197 in file t/pod/poderrs.t
-*** ERROR: Apparent command =head2 not preceded by blank line at line 201 in file t/pod/poderrs.t
-*** ERROR: Apparent command =item not preceded by blank line at line 204 in file t/pod/poderrs.t
-*** ERROR: Spurious =cut command at line 230 in file t/pod/poderrs.t
-*** ERROR: Spurious =pod command at line 236 in file t/pod/poderrs.t
+*** WARNING: (section) in 'passwd(5)' deprecated at line 124 in file t/pod/poderrs.t
+*** WARNING: node '$|' contains non-escaped | or / at line 125 in file t/pod/poderrs.t
+*** WARNING: alternative text '$|' contains non-escaped | or / at line 125 in file t/pod/poderrs.t
+*** ERROR: Spurious character(s) after =back at line 131 in file t/pod/poderrs.t
+*** ERROR: Nonempty Z<> at line 145 in file t/pod/poderrs.t
+*** ERROR: Empty X<> at line 147 in file t/pod/poderrs.t
+*** WARNING: preceding non-item paragraph(s) at line 153 in file t/pod/poderrs.t
+*** WARNING: No argument for =item at line 155 in file t/pod/poderrs.t
+*** WARNING: previous =item has no contents at line 157 in file t/pod/poderrs.t
+*** WARNING: No items in =over (at line 165) / =back list at line 167 in file t/pod/poderrs.t
+*** ERROR: Spurious text after =pod at line 173 in file t/pod/poderrs.t
+*** ERROR: Spurious text after =cut at line 177 in file t/pod/poderrs.t
+*** WARNING: empty section in previous paragraph at line 193 in file t/pod/poderrs.t
 *** ERROR: unresolved internal link 'begin or begin' at line 108 in file t/pod/poderrs.t
 *** ERROR: unresolved internal link 'end with begin' at line 109 in file t/pod/poderrs.t
 *** ERROR: unresolved internal link 'OoPs' at line 110 in file t/pod/poderrs.t
 *** ERROR: unresolved internal link 'abc def' at line 114 in file t/pod/poderrs.t
-*** ERROR: unresolved internal link 'I/O Operators' at line 213 in file t/pod/poderrs.t
+*** ERROR: unresolved internal link 'I/O Operators' at line 202 in file t/pod/poderrs.t
diff --git a/gnu/usr.bin/perl/t/op/while_readdir.t b/gnu/usr.bin/perl/t/op/while_readdir.t
index 63f8d92ba29..39641582874 100755
--- a/gnu/usr.bin/perl/t/op/while_readdir.t
+++ b/gnu/usr.bin/perl/t/op/while_readdir.t
@@ -9,49 +9,8 @@ BEGIN {
 use strict;
 use warnings;
 
-plan 10;
-
-# Need to run this in a quiet private directory as it assumes that it can read
-# the contents twice and get the same result.
-my $tempdir = tempfile;
-
-mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";
-chdir $tempdir or die die "Can't chdir '$tempdir': $!";
-
-my $cleanup = 1;
-my %tempfiles;
-
-END {
-    if ($cleanup) {
-	foreach my $file (keys %tempfiles) {
-	    # We only wrote each of these once so 1 delete should work:
-	    if (unlink $file) {
-		warn "unlink tempfile '$file' passed but it's still there"
-		    if -e $file;
-	    } else {
-		warn "Couldn't unlink tempfile '$file': $!";
-	    }
-	}
-	chdir '..' or die "Couldn't chdir .. for cleanup: $!";
-	rmdir $tempdir or die "Couldn't unlink tempdir '$tempdir': $!";
-    }
-}
-
-# This is intentionally not random (per run), but intentionally will try to
-# give different file names for different people running this test.
-srand $< * $];
-
-my @chars = ('A' .. 'Z', 'a' .. 'z', 0 .. 9);
-
-sub make_file {
-    my $name = shift;
-
-    return if $tempfiles{$name}++;
-
-    print "# Writing to $name in $tempdir\n";
-
-    open my $fh, '>', $name or die "Can't open '$name' for writing: $!\n";
-    print $fh <<'FILE0';
+open my $fh, ">", "0" or die "Can't open '0' for writing: $!\n";
+print $fh <<'FILE0';
 This file is here for testing
 
 while(readdir $dir){...}
@@ -59,20 +18,9 @@ while(readdir $dir){...}
 
 etc
 FILE0
-    close $fh or die "Can't close '$name': $!";
-}
-
-sub make_some_files {
-    for (1..int rand 10) {
-	my $name;
-	$name .= $chars[rand $#chars] for 1..int(10 + rand 5);
-	make_file($name);
-    }
-}
+close $fh;
 
-make_some_files();
-make_file('0');
-make_some_files();
+plan 10;
 
 ok(-f '0', "'0' file is here");
 
@@ -178,3 +126,5 @@ rewinddir $dirhandle;
 }
 
 closedir $dirhandle;
+
+END { 1 while unlink "0" }
diff --git a/gnu/usr.bin/perl/win32/config.gc64 b/gnu/usr.bin/perl/win32/config.gc64
index 2b13d2d6379..cf6d4649ec6 100644
--- a/gnu/usr.bin/perl/win32/config.gc64
+++ b/gnu/usr.bin/perl/win32/config.gc64
@@ -51,7 +51,6 @@ ccversion=''
 cf_by='nobody'
 cf_email='nobody@no.where.net'
 cf_time=''
-charbits='8'
 chgrp=''
 chmod=''
 chown=''
@@ -129,7 +128,7 @@ d_cmsghdr_s='undef'
 d_const='define'
 d_copysignl='undef'
 d_cplusplus='undef'
-d_crypt='define'
+d_crypt='undef'
 d_crypt_r='undef'
 d_csh='undef'
 d_ctermid='undef'
@@ -170,14 +169,14 @@ d_faststdio='define'
 d_fchdir='undef'
 d_fchmod='undef'
 d_fchown='undef'
-d_fcntl='undef'
 d_fcntl_can_lock='undef'
+d_fcntl='undef'
 d_fd_macros='define'
 d_fd_set='define'
 d_fds_bits='define'
 d_fgetpos='define'
-d_finite='undef'
 d_finitel='undef'
+d_finite='undef'
 d_flexfnam='define'
 d_flock='define'
 d_flockproto='define'
@@ -271,9 +270,7 @@ d_inetaton='undef'
 d_inetntop='undef'
 d_inetpton='undef'
 d_int64_t='undef'
-d_ipv6_mreq='undef'
 d_isascii='define'
-d_isblank='undef'
 d_isfinite='undef'
 d_isinf='undef'
 d_isnan='define'
@@ -315,17 +312,17 @@ d_modfl='undef'
 d_modfl_pow32_bug='undef'
 d_modflproto='undef'
 d_mprotect='undef'
-d_msg='undef'
+d_msgctl='undef'
 d_msg_ctrunc='undef'
 d_msg_dontroute='undef'
+d_msgget='undef'
+d_msghdr_s='undef'
 d_msg_oob='undef'
 d_msg_peek='undef'
 d_msg_proxy='undef'
-d_msgctl='undef'
-d_msgget='undef'
-d_msghdr_s='undef'
 d_msgrcv='undef'
 d_msgsnd='undef'
+d_msg='undef'
 d_msync='undef'
 d_munmap='undef'
 d_mymalloc='undef'
@@ -347,8 +344,6 @@ d_phostname='undef'
 d_pipe='define'
 d_poll='undef'
 d_portable='define'
-d_prctl='undef'
-d_prctl_set_name='undef'
 d_printf_format_null='undef'
 d_procselfexe='undef'
 d_pseudofork='undef'
@@ -434,11 +429,8 @@ d_sigaction='undef'
 d_signbit='undef'
 d_sigprocmask='undef'
 d_sigsetjmp='undef'
-d_sin6_scope_id='define'
 d_sitearch='define'
 d_snprintf='define'
-d_sockaddr_in6='undef'
-d_sockaddr_sa_len='undef'
 d_sockatmark='undef'
 d_sockatmarkproto='undef'
 d_socket='define'
@@ -454,7 +446,6 @@ d_sresuproto='undef'
 d_statblks='undef'
 d_statfs_f_flags='undef'
 d_statfs_s='undef'
-d_static_inline='define'
 d_statvfs='undef'
 d_stdio_cnt_lval='define'
 d_stdio_ptr_lval='define'
@@ -669,7 +660,6 @@ i_sgtty='undef'
 i_shadow='undef'
 i_socks='undef'
 i_stdarg='define'
-i_stdbool='undef'
 i_stddef='define'
 i_stdlib='define'
 i_string='define'
@@ -787,8 +777,8 @@ longsize='4'
 lp=''
 lpr=''
 ls='dir'
-lseeksize='4'
-lseektype='long'
+lseeksize='8'
+lseektype='long long'
 mad='undef'
 madlyh=''
 madlyobj=''
@@ -855,7 +845,6 @@ path_sep=';'
 perl5=''
 perl='perl'
 perl_patchlevel='~PERL_PATCHLEVEL~'
-perl_static_inline='static __inline__'
 perladmin=''
 perllibs='~libs~'
 perlpath='~INST_TOP~~INST_VER~\bin~INST_ARCH~\perl.exe'
@@ -968,8 +957,6 @@ srand48_r_proto='0'
 srandom_r_proto='0'
 src=''
 ssizetype='long long'
-st_ino_sign='1'
-st_ino_size='8'
 startperl='#!perl'
 startsh='#!/bin/sh'
 static_ext=' '
@@ -1024,7 +1011,6 @@ usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
 useithreads='undef'
-usekernprocpathname='undef'
 uselargefiles='undef'
 uselongdouble='undef'
 usemallocwrap='define'
@@ -1032,7 +1018,6 @@ usemorebits='undef'
 usemultiplicity='undef'
 usemymalloc='n'
 usenm='false'
-usensgetexecutablepath='undef'
 useopcode='true'
 useperlio='undef'
 useposix='true'
@@ -1053,7 +1038,6 @@ uvsize='8'
 uvtype='unsigned long long'
 uvuformat='"I64u"'
 uvxformat='"I64x"'
-vaproto='undef'
 vendorarch=''
 vendorarchexp=''
 vendorbin=''
diff --git a/gnu/usr.bin/perl/win32/config.gc64nox b/gnu/usr.bin/perl/win32/config.gc64nox
index c463323a0ec..f33fba531c3 100644
--- a/gnu/usr.bin/perl/win32/config.gc64nox
+++ b/gnu/usr.bin/perl/win32/config.gc64nox
@@ -51,7 +51,6 @@ ccversion=''
 cf_by='nobody'
 cf_email='nobody@no.where.net'
 cf_time=''
-charbits='8'
 chgrp=''
 chmod=''
 chown=''
@@ -129,7 +128,7 @@ d_cmsghdr_s='undef'
 d_const='define'
 d_copysignl='undef'
 d_cplusplus='undef'
-d_crypt='define'
+d_crypt='undef'
 d_crypt_r='undef'
 d_csh='undef'
 d_ctermid='undef'
@@ -170,14 +169,14 @@ d_faststdio='define'
 d_fchdir='undef'
 d_fchmod='undef'
 d_fchown='undef'
-d_fcntl='undef'
 d_fcntl_can_lock='undef'
+d_fcntl='undef'
 d_fd_macros='define'
 d_fd_set='define'
 d_fds_bits='define'
 d_fgetpos='define'
-d_finite='undef'
 d_finitel='undef'
+d_finite='undef'
 d_flexfnam='define'
 d_flock='define'
 d_flockproto='define'
@@ -271,9 +270,7 @@ d_inetaton='undef'
 d_inetntop='undef'
 d_inetpton='undef'
 d_int64_t='undef'
-d_ipv6_mreq='undef'
 d_isascii='define'
-d_isblank='undef'
 d_isfinite='undef'
 d_isinf='undef'
 d_isnan='define'
@@ -315,17 +312,17 @@ d_modfl='undef'
 d_modfl_pow32_bug='undef'
 d_modflproto='undef'
 d_mprotect='undef'
-d_msg='undef'
+d_msgctl='undef'
 d_msg_ctrunc='undef'
 d_msg_dontroute='undef'
+d_msgget='undef'
+d_msghdr_s='undef'
 d_msg_oob='undef'
 d_msg_peek='undef'
 d_msg_proxy='undef'
-d_msgctl='undef'
-d_msgget='undef'
-d_msghdr_s='undef'
 d_msgrcv='undef'
 d_msgsnd='undef'
+d_msg='undef'
 d_msync='undef'
 d_munmap='undef'
 d_mymalloc='undef'
@@ -347,8 +344,6 @@ d_phostname='undef'
 d_pipe='define'
 d_poll='undef'
 d_portable='define'
-d_prctl='undef'
-d_prctl_set_name='undef'
 d_printf_format_null='undef'
 d_procselfexe='undef'
 d_pseudofork='undef'
@@ -434,11 +429,8 @@ d_sigaction='undef'
 d_signbit='undef'
 d_sigprocmask='undef'
 d_sigsetjmp='undef'
-d_sin6_scope_id='define'
 d_sitearch='define'
 d_snprintf='define'
-d_sockaddr_in6='undef'
-d_sockaddr_sa_len='undef'
 d_sockatmark='undef'
 d_sockatmarkproto='undef'
 d_socket='define'
@@ -454,7 +446,6 @@ d_sresuproto='undef'
 d_statblks='undef'
 d_statfs_f_flags='undef'
 d_statfs_s='undef'
-d_static_inline='define'
 d_statvfs='undef'
 d_stdio_cnt_lval='define'
 d_stdio_ptr_lval='define'
@@ -669,7 +660,6 @@ i_sgtty='undef'
 i_shadow='undef'
 i_socks='undef'
 i_stdarg='define'
-i_stdbool='undef'
 i_stddef='define'
 i_stdlib='define'
 i_string='define'
@@ -787,8 +777,8 @@ longsize='4'
 lp=''
 lpr=''
 ls='dir'
-lseeksize='4'
-lseektype='long'
+lseeksize='8'
+lseektype='long long'
 mad='undef'
 madlyh=''
 madlyobj=''
@@ -855,7 +845,6 @@ path_sep=';'
 perl5=''
 perl='perl'
 perl_patchlevel='~PERL_PATCHLEVEL~'
-perl_static_inline='static __inline__'
 perladmin=''
 perllibs='~libs~'
 perlpath='~INST_TOP~~INST_VER~\bin~INST_ARCH~\perl.exe'
@@ -968,8 +957,6 @@ srand48_r_proto='0'
 srandom_r_proto='0'
 src=''
 ssizetype='long long'
-st_ino_sign='1'
-st_ino_size='8'
 startperl='#!perl'
 startsh='#!/bin/sh'
 static_ext=' '
@@ -1024,7 +1011,6 @@ usedl='define'
 usedtrace='undef'
 usefaststdio='undef'
 useithreads='undef'
-usekernprocpathname='undef'
 uselargefiles='undef'
 uselongdouble='undef'
 usemallocwrap='define'
@@ -1032,7 +1018,6 @@ usemorebits='undef'
 usemultiplicity='undef'
 usemymalloc='n'
 usenm='false'
-usensgetexecutablepath='undef'
 useopcode='true'
 useperlio='undef'
 useposix='true'
@@ -1053,7 +1038,6 @@ uvsize='8'
 uvtype='unsigned long long'
 uvuformat='"I64u"'
 uvxformat='"I64x"'
-vaproto='undef'
 vendorarch=''
 vendorarchexp=''
 vendorbin=''