Add back the EBCDIC character range tests (for matching).

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

diff --git a/doio.c b/doio.c
index a29f323..53863b6 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -1190,7 +1190,7 @@ Perl_do_print(pTHX_ register SV *sv, PerlIO *fp)
 I32
 Perl_my_stat(pTHX)
 {
-    djSP;
+    dSP;
     IO *io;
     GV* gv;
 
@@ -1243,7 +1243,7 @@ Perl_my_stat(pTHX)
 I32
 Perl_my_lstat(pTHX)
 {
-    djSP;
+    dSP;
     SV *sv;
     STRLEN n_a;
     if (PL_op->op_flags & OPf_REF) {