From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 18 Apr 2003 19:16:43 +0000 (+0000)
Subject: Unused variables.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d60ecbe5204b1d5c06464db2b54d51236d8a45d0;p=p5sagit%2Fp5-mst-13.2.git

Unused variables.

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

diff --git a/perlio.c b/perlio.c
index 2dc18b2..e6c985c 100644
--- a/perlio.c
+++ b/perlio.c
@@ -652,7 +652,6 @@ PerlIO_get_layers(pTHX_ PerlIO *f)
      AV *av = newAV();
 
      if (PerlIOValid(f)) {
-          dSP;
 	  PerlIOl *l = PerlIOBase(f);
 
 	  while (l) {
diff --git a/universal.c b/universal.c
index 3f70ac6..24621d2 100644
--- a/universal.c
+++ b/universal.c
@@ -737,7 +737,6 @@ XS(XS_PerlIO_get_layers)
 	bool	details = FALSE;
 
 	if (items > 1) {
-	     SV **popuntil = MARK + 1;
 	     SV **svp;
 	     
 	     for (svp = MARK + 2; svp <= SP; svp += 2) {