diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 21:00:44 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 21:00:44 +0000 |
commit | 9cde0e7fb9816f759feaabc0f640403a7cdbc5c6 (patch) | |
tree | 36f6317054f838576f53a56cc55ef37a6ecc241c /pod/perlcall.pod | |
parent | b61d194ccc4ffeadd2cf0ae98317321309a3dd04 (diff) | |
download | perl-9cde0e7fb9816f759feaabc0f640403a7cdbc5c6.tar.gz |
Update perldelta and Changes; refresh perltoc; newer perlembed.pod
from Jon Orwant <orwant@media.mit.edu>; update guts documentation
to reflect PL_* changes; is this *it* for 5.005?
p4raw-id: //depot/perl@1646
Diffstat (limited to 'pod/perlcall.pod')
-rw-r--r-- | pod/perlcall.pod | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/pod/perlcall.pod b/pod/perlcall.pod index ac60007878..7c94d377c7 100644 --- a/pod/perlcall.pod +++ b/pod/perlcall.pod @@ -969,9 +969,9 @@ and some C to call it SPAGAIN ; /* Check the eval first */ - if (SvTRUE(GvSV(errgv))) + if (SvTRUE(ERRSV)) { - printf ("Uh oh - %s\n", SvPV(GvSV(errgv), na)) ; + printf ("Uh oh - %s\n", SvPV(ERRSV, PL_na)) ; POPs ; } else @@ -1011,9 +1011,9 @@ I<Subtract>. The code - if (SvTRUE(GvSV(errgv))) + if (SvTRUE(ERRSV)) { - printf ("Uh oh - %s\n", SvPV(GvSV(errgv), na)) ; + printf ("Uh oh - %s\n", SvPV(ERRSV, PL_na)) ; POPs ; } @@ -1021,14 +1021,14 @@ is the direct equivalent of this bit of Perl print "Uh oh - $@\n" if $@ ; -C<errgv> is a perl global of type C<GV *> that points to the -symbol table entry containing the error. C<GvSV(errgv)> therefore +C<PL_errgv> is a perl global of type C<GV *> that points to the +symbol table entry containing the error. C<ERRSV> therefore refers to the C equivalent of C<$@>. =item 3. Note that the stack is popped using C<POPs> in the block where -C<SvTRUE(GvSV(errgv))> is true. This is necessary because whenever a +C<SvTRUE(ERRSV)> is true. This is necessary because whenever a I<perl_call_*> function invoked with G_EVAL|G_SCALAR returns an error, the top of the stack holds the value I<undef>. Because we want the program to continue after detecting this error, it is essential that @@ -1877,7 +1877,7 @@ of values> recoded to use C<ST> instead of C<POP*>. SPAGAIN ; SP -= count ; - ax = (SP - stack_base) + 1 ; + ax = (SP - PL_stack_base) + 1 ; if (count != 2) croak("Big trouble\n") ; @@ -1907,7 +1907,7 @@ The code SPAGAIN ; SP -= count ; - ax = (SP - stack_base) + 1 ; + ax = (SP - PL_stack_base) + 1 ; sets the stack up so that we can use the C<ST> macro. |