Need to free the isa lookup hash before rebuilding it.

[p5sagit/p5-mst-13.2.git] / pod / perlcall.pod

diff --git a/pod/perlcall.pod b/pod/perlcall.pod
index 1a9ac8d..08173d2 100644 (file)
--- a/pod/perlcall.pod
+++ b/pod/perlcall.pod
@@ -904,8 +904,7 @@ and some C to call it
         /* Check the eval first */
         if (SvTRUE(ERRSV))
         {
-           STRLEN n_a;
-            printf ("Uh oh - %s\n", SvPV(ERRSV, n_a));
+            printf ("Uh oh - %s\n", SvPV_nolen(ERRSV));
             POPs;
         }
         else
@@ -947,8 +946,7 @@ The code
 
     if (SvTRUE(ERRSV))
     {
-       STRLEN n_a;
-        printf ("Uh oh - %s\n", SvPV(ERRSV, n_a));
+        printf ("Uh oh - %s\n", SvPV_nolen(ERRSV));
         POPs;
     }