Select Code to Download

>perl -MO=Concise -e"@in=@in[@idx]
e  <@> leave[1 ref] vKP/REFC ->(end)
...
a           <0> pushmark s ->b
c           <1> rv2av[t2] lKRM*/1 ->d
b              <#> gv[*in] s ->c

         1         995:     /* If there's a common identifier on both 
+sides we have to take
         1         996:      * special care that assigning the identif
+ier on the left doesn't
...
      5492 <<     1006:     }
         1        1007:     }
         1        1008: