Unused variables.

p4raw-id: //depot/perl@19263

diff --git a/perlio.c b/perlio.c
index 2dc18b2..e6c985c 100644 (file)
--- 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 (file)
--- 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) {