Help new users learn how to get help

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

diff --git a/perl.c b/perl.c
index 04184be..728ec88 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2853,6 +2853,10 @@ NULL
                  name);
     while (*p)
        PerlIO_printf(PerlIO_stdout(), "\n  %s", *p++);
+
+    PerlIO_printf(PerlIO_stdout(),
+                 "Run 'perldoc perl' for more help with Perl.\n\n"
+                 );
 }
 
 /* convert a string of -D options (or digits) into an int.