[Please note CC to mj2-dev]
>>>>> "RBAK" == Roger B A Klorese <rogerk@QueerNet.ORG> writes:
RBAK> I've got a built and tested Mj2 up and running on a system running
RBAK> BSD/OS 3.1, perl 5.6.0.
Odd. I see it too, in Linux, with perl 5.005_03, but only in interactive
mode. The code in question (in IO::Handle) is:
sub getline {
@_ == 1 or croak 'usage: $io->getline()';
my $this = shift;
return scalar <$this>;
^^^^^^^^^^^^^^^^^^^^^
}
mj_shell doesn't call getline, and there shouldn't be any difference in the
internals between interactive and command-line modes. I'll try to get a
good backtrace out. Hmmm:
Use of uninitialized value at /usr/lib/perl5/5.00503/i386-linux/IO/Handle.pm line 391, <GEN21> chunk 1.
main::__ANON__('Use of uninitialized value at /usr/lib/perl5/5.00503/i386-linux/...') called at /usr/lib/perl5/5.00503/i386-linux/IO/Handle.pm line 391
IO::Handle::getline('IO::File=GLOB(0x867f714)') called at blib/lib/Majordomo.pm (autosplit into blib/lib/auto/Majordomo/get_chunk.al) line 1641
Majordomo::get_chunk('Majordomo=HASH(0x84a782c)', 'HASH(0x86293d4)', 1000) called at /home/tibbs/mj/2.0-snap/lib/Majordomo.pm line 446
Majordomo::dispatch('Majordomo=HASH(0x84a782c)', 'HASH(0x86293d4)', 1000) called at blib/lib/Mj/Format.pm (autosplit into blib/lib/auto/Mj/Format/g_get.al) line 1310
Mj::Format::g_get('Help failed.', 'Majordomo=HASH(0x84a782c)', 'GLOB(0x80c88e4)', 'GLOB(0x80c88e4)', 'text', 'HASH(0x86293d4)', 'ARRAY(0x863ad6c)') called at blib/lib/Mj/Format.pm (autosplit into blib/lib/auto/Mj/Format/help.al) line 406
Mj::Format::help('Majordomo=HASH(0x84a782c)', 'GLOB(0x80c88e4)', 'GLOB(0x80c88e4)', 'text', 'HASH(0x86293d4)', 'ARRAY(0x863ad6c)') called at /home/tibbs/mj/2.0-snap/bin/.mj_shell line 429
main::parse_command('help', 'createlist', '', 'HASH(0x86132f4)') called at /home/tibbs/mj/2.0-snap/bin/.mj_shell line 237
main::parse_interactive('ARRAY(0x8122ae4)', undef) called at /home/tibbs/mj/2.0-snap/bin/.mj_shell line 180
So IO::Handle::getline gets called with a defined value, but is still
complaining about an undefined value. I'm leaning towards a Perl bug at
this point, but I'll poke at it further.
- J<
Follow-Ups:
References:
|
|
