Skip processing a file if the file to be opened is '-'

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 775b03a..73c9634 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3944,10 +3944,10 @@ Perl_cv_undef(pTHX_ CV *cv)
     }
 }
 
-#ifdef DEBUGGING
 STATIC void
 S_cv_dump(pTHX_ CV *cv)
 {
+#ifdef DEBUGGING
     CV *outside = CvOUTSIDE(cv);
     AV* padlist = CvPADLIST(cv);
     AV* pad_name;
@@ -3988,8 +3988,8 @@ S_cv_dump(pTHX_ CV *cv)
                          (IV)I_32(SvNVX(pname[ix])),
                          SvIVX(pname[ix]));
     }
-}
 #endif /* DEBUGGING */
+}
 
 STATIC CV *
 S_cv_clone2(pTHX_ CV *proto, CV *outside)