At 10:40 PM -0500 9/29/00, Jason L Tibbitts III wrote:
>Can folks with this problem verify that the following fixes it?
>
>Index: bin/mj_shell
>===================================================================
>RCS file: /home/cvs/majordomo/majordomo/bin/mj_shell,v
>retrieving revision 1.31
>diff -u -r1.31 mj_shell
>--- bin/mj_shell 2000/09/26 17:44:45 1.31
>+++ bin/mj_shell 2000/09/30 03:37:58
>@@ -214,6 +216,7 @@
> . "Type majordomo commands. Use the 'end' command to exit.\n\n";
>
> while (defined($cmdline = $term->readline($prompt))) {
>+ $i = $/; $/ = $i; # Silence weird Perl bug
> @arglist = ();
> if ($cmdline =~ /^(.*)\s+\<\<\s*([A-Z]{3}[A-Z0-9]*)$/) {
> $cmdline = $1;
Yep, that fixed mine, too.
Thanks!
Dave Miller Technical Lead / Database Support
A2Central.com: Your total source for Apple II computing news
http://www.a2central.com/ justdave@a2central.com
References:
|
|
