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/
