update embedvar.h

p4raw-id: //depot/perl@3392

diff --git a/embedvar.h b/embedvar.h
index 63613ef..a8d83f5 100644 (file)
--- 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 9faec2e..d11d957 100644 (file)
--- 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 6840923..fe4f29f 100644 (file)
--- 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.