good chemistry is complicated, and a little bit messy -LW |
|
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
The check for a new section start is in the
condition (the regex is equivalent to /^t/, BTW). It's located inside the YES-branch of the but the end of the previous section sets $newsection to 1, so this condition can't be reached. I'd move the /^t/ condition into the ELSE part of the outermost if, and initialize $newsection with 1 at the very start. Also, I miss strict and warnings.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
In reply to Re: Cannot find the error
by choroba
|
|