I can't remember if I'm supposed to e-mail details of this to perl6-internals,
but I've just committed this:

$ cvs diff -pu test_main.c
Index: test_main.c
===================================================================
RCS file: /cvs/public/parrot/test_main.c,v
retrieving revision 1.54
diff -p -u -r1.54 test_main.c
--- test_main.c 23 Jul 2002 02:09:27 -0000      1.54
+++ test_main.c 29 Jul 2002 22:05:55 -0000
@@ -111,7 +111,7 @@ parseflags(Parrot_Interp interpreter, in
         case '\0':             /* bare '-' means read from stdin */
             goto OUT;
         default:
-            fprintf(stderr, "parrot: Invalid flag %c used",
+            fprintf(stderr, "parrot: Invalid flag %c used\n",
                     (*argv)[0][1]);
             exit(1);
         }

Before:

nick@Bagpuss [parrot02]$ ./parrot -?
parrot: Invalid flag ? usednick@Bagpuss [parrot02]$

After:


nick@Bagpuss [parrot03]$ ./parrot -?
parrot: Invalid flag ? used
nick@Bagpuss [parrot03]$

Nicholas Clark
-- 
Even better than the real thing:        http://nms-cgi.sourceforge.net/

Reply via email to