Select Code to Download

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
...
    c:/progs/perl588/site/lib
    c:/progs/perl588/lib
    .

>perl588_817\bin\perl -we"$cur[2]=20; $win[2]=100; $sec[2]=undef; if (
+$cur[2] > $win[2]) {}" -e"elsif (0+$cur[2] > 0+$sec[2]) {}"
Use of uninitialized value in addition (+) at -e line 1.

>perl588\bin\perl -we"$cur[2]=20; $win[2]=100; $sec[2]=undef; if ($cur
+[2] > $win[2]) {}" -e"elsif (0+$cur[2] > 0+$sec[2]) {}"
Use of uninitialized value in addition (+) at -e line 2.

 -           <1> null vK/1 ->-
 s              <|> and(other->t) vK/1 ->k
...
+-                    <0> ex-nextstate v* ->l
 r                    <2> gt sK/2 ->s
 n                       <2> add[t7] sK/2 ->o