From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 11 May 1999 20:56:43 +0000 (+0000)
Subject: update embedvar.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e0284a306d2de082f33ef0d8787355c6d4e646d8;p=p5sagit%2Fp5-mst-13.2.git

update embedvar.h

p4raw-id: //depot/perl@3392
---

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