summaryrefslogtreecommitdiff
path: root/pod/perlcall.pod
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-07-22 21:00:44 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-07-22 21:00:44 +0000
commit9cde0e7fb9816f759feaabc0f640403a7cdbc5c6 (patch)
tree36f6317054f838576f53a56cc55ef37a6ecc241c /pod/perlcall.pod
parentb61d194ccc4ffeadd2cf0ae98317321309a3dd04 (diff)
downloadperl-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.pod18
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.