workaround for missing SvPV_nolen()

[Antonio Querubin]

This fixes up perlAccess() in nnrpd/perl.c to call SvPV() instead of
SvPV_nolen() which isn't available on older versions of PERL.  This seems
to be the only place where SvPV_nolen() was being called.



-- Attached file included as plaintext by Ecartis --
-- File: perl.c.diff
-- Desc: nnrpd/perl.c in CURRENT snapshot

--- nnrpd/perl.c.orig	Fri Apr 12 23:00:51 2002
+++ nnrpd/perl.c	Sat Apr 13 13:28:43 2002
@@ -251,10 +251,10 @@
 
   for (i = (rc / 2); i >= 1; i--) {
     sv = POPs;
-    p = SvPV_nolen(sv);
+    p = SvPV(sv, PL_na);
     val = COPY(p);
     sv = POPs;
-    p = SvPV_nolen(sv);
+    p = SvPV(sv, PL_na);
     key = COPY(p);
 
     key = strcat(key, ": \"");