2 files changed, 0 insertions, 2 deletions
diff --git a/perlio.c b/perlio.c
index 2dc18b2624..e6c985cd27 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 3f70ac62a8..24621d20fc 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) {