diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 20:56:43 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 20:56:43 +0000 |
| commit | e0284a306d2de082f33ef0d8787355c6d4e646d8 (patch) | |
| tree | 483cee08a6c7b9b4b1f6ea11725f1979f5c67497 | |
| parent | 1494e794755363d23b7bca66c4a024ccc839e963 (diff) | |
| download | perl-e0284a306d2de082f33ef0d8787355c6d4e646d8.tar.gz | |
update embedvar.h
p4raw-id: //depot/perl@3392
| -rw-r--r-- | embedvar.h | 3 | ||||
| -rw-r--r-- | ext/ByteLoader/ByteLoader.pm | 3 | ||||
| -rw-r--r-- | pod/perldelta.pod | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/embedvar.h b/embedvar.h index 63613efa77..a8d83f5b01 100644 --- a/embedvar.h +++ b/embedvar.h @@ -53,6 +53,7 @@ #define PL_ofslen (PL_curinterp->Tofslen) #define PL_op (PL_curinterp->Top) #define PL_opsave (PL_curinterp->Topsave) +#define PL_protect (PL_curinterp->Tprotect) #define PL_reg_call_cc (PL_curinterp->Treg_call_cc) #define PL_reg_curpm (PL_curinterp->Treg_curpm) #define PL_reg_eval_set (PL_curinterp->Treg_eval_set) @@ -445,6 +446,7 @@ #define PL_Tofslen PL_ofslen #define PL_Top PL_op #define PL_Topsave PL_opsave +#define PL_Tprotect PL_protect #define PL_Treg_call_cc PL_reg_call_cc #define PL_Treg_curpm PL_reg_curpm #define PL_Treg_eval_set PL_reg_eval_set @@ -580,6 +582,7 @@ #define PL_ofslen (thr->Tofslen) #define PL_op (thr->Top) #define PL_opsave (thr->Topsave) +#define PL_protect (thr->Tprotect) #define PL_reg_call_cc (thr->Treg_call_cc) #define PL_reg_curpm (thr->Treg_curpm) #define PL_reg_eval_set (thr->Treg_eval_set) diff --git a/ext/ByteLoader/ByteLoader.pm b/ext/ByteLoader/ByteLoader.pm index 9faec2e08c..d11d9573c7 100644 --- a/ext/ByteLoader/ByteLoader.pm +++ b/ext/ByteLoader/ByteLoader.pm @@ -1,8 +1,5 @@ package ByteLoader; -use strict; -use vars qw($VERSION @ISA); - require DynaLoader; @ISA = qw(DynaLoader); diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 6840923ff0..fe4f29f060 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -225,7 +225,7 @@ been fixed. fork(), exec(), system(), qx// and pipe open()s now flush the buffers of all files that were opened for output at the time the operation -was attempted. The mostly eliminates the often confusing effects of +was attempted. This mostly eliminates the often confusing effects of buffering mishaps suffered by users unaware of how Perl internally handled I/O. |