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;
- J<
Follow-Ups:
References:
|
|
