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

Your line 12:

elsif ($subarg[0] = undef) {

Always evaluates to true. You probably meant:
elsif ($subarg[0] == undef) {

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

Replies are listed 'Best First'.
Re^2: Reply to replies and update
by ikegami (Patriarch) on Aug 10, 2006 at 05:48 UTC

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

    elsif (not defined $subarg[0]) {

      ++ikegami


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