From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 14 Jun 1998 01:38:39 +0000 (+0000)
Subject: remove unused global `scrgv'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=703664f229b1c364f06ceda5f2503d00e2daa04c;p=p5sagit%2Fp5-mst-13.2.git

remove unused global `scrgv'

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

diff --git a/ObjXSub.h b/ObjXSub.h
index d1a07ca..605ef1c 100644
--- a/ObjXSub.h
+++ b/ObjXSub.h
@@ -544,8 +544,6 @@
 #define screamfirst		pPerl->Perl_screamfirst
 #undef  screamnext
 #define screamnext		pPerl->Perl_screamnext
-#undef  scrgv
-#define scrgv			pPerl->Perl_scrgv
 #undef  secondgv
 #define secondgv		pPerl->Perl_secondgv
 #undef  seen_zerolen
diff --git a/cygwin32/cw32imp.h b/cygwin32/cw32imp.h
index 1fb11d3..885cbb1 100644
--- a/cygwin32/cw32imp.h
+++ b/cygwin32/cw32imp.h
@@ -165,7 +165,6 @@
 #define  Perl_scopestack   (*__imp_Perl_scopestack)
 #define  Perl_scopestack_ix   (*__imp_Perl_scopestack_ix)
 #define  Perl_scopestack_max   (*__imp_Perl_scopestack_max)
-#define  Perl_scrgv   (*__imp_Perl_scrgv)
 #define  Perl_sh_path   (*__imp_Perl_sh_path)
 #define  Perl_sig_name   (*__imp_Perl_sig_name)
 #define  Perl_sig_num   (*__imp_Perl_sig_num)
diff --git a/embedvar.h b/embedvar.h
index 4870703..2e64829 100644
--- a/embedvar.h
+++ b/embedvar.h
@@ -852,7 +852,6 @@
 #define rsfp			(Perl_Vars.Grsfp)
 #define rsfp_filters		(Perl_Vars.Grsfp_filters)
 #define runops			(Perl_Vars.Grunops)
-#define scrgv			(Perl_Vars.Gscrgv)
 #define sh_path			(Perl_Vars.Gsh_path)
 #define sighandlerp		(Perl_Vars.Gsighandlerp)
 #define specialsv_list		(Perl_Vars.Gspecialsv_list)
@@ -972,7 +971,6 @@
 #define Grsfp			rsfp
 #define Grsfp_filters		rsfp_filters
 #define Grunops			runops
-#define Gscrgv			scrgv
 #define Gsh_path		sh_path
 #define Gsighandlerp		sighandlerp
 #define Gspecialsv_list		specialsv_list
@@ -1092,7 +1090,6 @@
 #define rsfp			Perl_rsfp
 #define rsfp_filters		Perl_rsfp_filters
 #define runops			Perl_runops
-#define scrgv			Perl_scrgv
 #define sh_path			Perl_sh_path
 #define sighandlerp		Perl_sighandlerp
 #define specialsv_list		Perl_specialsv_list
diff --git a/perlvars.h b/perlvars.h
index 025f7c4..9bbd615 100644
--- a/perlvars.h
+++ b/perlvars.h
@@ -107,7 +107,6 @@ PERLVAR(Gmulti_end,	I32)		/* last line of multi-line string */
 PERLVAR(Gmulti_open,	I32)		/* delimiter of said string */
 PERLVAR(Gmulti_close,	I32)		/* delimiter of said string */
 
-PERLVAR(Gscrgv,	GV *)		
 PERLVAR(Gerror_count,	I32)		/* how many errors so far, max 10 */
 PERLVAR(Gsubline,	I32)		/* line this subroutine began on */
 PERLVAR(Gsubname,	SV *)		/* name of current subroutine */