make parenthetic warnings look consistent; make diagnostic on

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

diff --git a/util.c b/util.c
index 4b0e1c5..bda2beb 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3817,6 +3817,6 @@ Perl_report_closed_fh(pTHX_ GV *gv, IO *io, const char *func, const char *obj)
 
     if (io && IoDIRP(io))
        Perl_warner(aTHX_ WARN_CLOSED,
-                   "(Are you trying to call %s() on dirhandle %s?)\n",
+                   "\t(Are you trying to call %s() on dirhandle %s?)\n",
                    func, name);
 }