diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-08-10 21:54:00 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-08-10 21:54:00 +0000 |
| commit | 1c5b513e3fd8bc7a5a38ca94832b9e848ef0301d (patch) | |
| tree | 205494c8824cf25aa4a0f5e4f5fd2fc5734daee0 /pod/perlcall.pod | |
| parent | ffe4764e6903def60304ff584612fb863707cd05 (diff) | |
| download | perl-1c5b513e3fd8bc7a5a38ca94832b9e848ef0301d.tar.gz | |
Purge C<n_a> thoughtcrime from the pods.
p4raw-id: //depot/perl@34197
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; } |