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

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

diff --git a/run.c b/run.c
index 1c44f05..a5e6359 100644 (file)
--- a/run.c
+++ b/run.c
@@ -47,7 +47,8 @@ Perl_runops_debug(pTHX)
            if (PL_watchaddr != 0 && *PL_watchaddr != PL_watchok)
                PerlIO_printf(Perl_debug_log,
                              "WARNING: %"UVxf" changed from %"UVxf" to %"UVxf"\n",
-                             PTR2UV(PL_watchaddr), PTR2UV(PL_watchok), (UV)*PL_watchaddr);
+                             PTR2UV(PL_watchaddr), PTR2UV(PL_watchok),
+                             PTR2UV(*PL_watchaddr));
            DEBUG_s(debstack());
            DEBUG_t(debop(PL_op));
            DEBUG_P(debprof(PL_op));