in reply to Re: Reply to replies and update
in thread Confused about 'Name "main::whenfound" used only once:'

Good catch, but $subarg[0] = undef always evaluates to *false* (not true), and $subarg[0] == undef is also wrong. 

elsif (not defined $subarg[0]) {

[download]

Replies are listed 'Best First'.
Re^3: Reply to replies and update
by starbolin (Hermit) on Aug 10, 2006 at 06:08 UTC

    ++ikegami

    s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}
[reply]
[d/l]

In Section Seekers of Perl Wisdom