Maintenance releace 3 of perl5.005. Includes support for threads.

2 files changed, 5 insertions, 3 deletions

diff --git a/contrib/perl5/ext/attrs/Makefile.PL b/contrib/perl5/ext/attrs/Makefile.PL
index c42175761546..86ed3f393551 100644
--- a/contrib/perl5/ext/attrs/Makefile.PL
+++ b/contrib/perl5/ext/attrs/Makefile.PL
@@ -2,6 +2,6 @@ use ExtUtils::MakeMaker;
 WriteMakefile(
     NAME	=> 'attrs',
     VERSION_FROM => 'attrs.pm',
-    MAN3PODS 	=> ' ', 	# Pods will be built by installman.
+    MAN3PODS 	=> {}, 	# Pods will be built by installman.
     XSPROTOARG => '-noprototypes'
 );
diff --git a/contrib/perl5/ext/attrs/attrs.xs b/contrib/perl5/ext/attrs/attrs.xs
index da952d5a3f1a..7f7970d207d7 100644
--- a/contrib/perl5/ext/attrs/attrs.xs
+++ b/contrib/perl5/ext/attrs/attrs.xs
@@ -27,7 +27,8 @@ char *	Class
 	if (!PL_compcv || !(cv = CvOUTSIDE(PL_compcv)))
 	    croak("can't set attributes outside a subroutine scope");
 	for (i = 1; i < items; i++) {
-	    char *attr = SvPV(ST(i), PL_na);
+	    STRLEN n_a;
+	    char *attr = SvPV(ST(i), n_a);
 	    cv_flags_t flag = get_flag(attr);
 	    if (!flag)
 		croak("invalid attribute name %s", attr);
@@ -47,7 +48,8 @@ SV *	sub
 		sub = Nullsv;
 	}
 	else {
-	    char *name = SvPV(sub, PL_na);
+	    STRLEN n_a;
+	    char *name = SvPV(sub, n_a);
 	    sub = (SV*)perl_get_cv(name, FALSE);
 	}
 	if (!sub)