cpan you have to see

[Mark Overmeer]

* Avishalom Shalit (avishalom at gmail.com) [121212 11:01]:
> How do I sort an array in reverse?
>         @sorted = sort reverse @array;

I do understand the jokes, because I have sufficient knowledge of Perl.
Horrible things get used.

Now guess: is the following a joke or in production code?

   CHECKSHIPPING: {
       last CHECKSHIPPING unless $Vend::Cfg->{TaxShipping};
       foreach $code (@code) {
           next unless $Vend::Cfg->{TaxShipping} =~ /\b\Q$code\E\b/i;
           $amount += tag_shipping();
           last;
       }
   }

-- 
               MarkOv

------------------------------------------------------------------------
       Mark Overmeer MSc                                MARKOV Solutions
       Mark at Overmeer.net                          solutions at overmeer.net
http://Mark.Overmeer.net                   http://solutions.overmeer.net