diff options
Diffstat (limited to 'pod/perlcall.pod')
| -rw-r--r-- | pod/perlcall.pod | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pod/perlcall.pod b/pod/perlcall.pod index 1a9ac8ddad..08173d2e69 100644 --- 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; } |