Select Code to Download

#!/usr/bin/perl -w

...

$rehash->add( qr/abc/, "abc" );
$rehash->add( qr/def/, "def" );

Use of uninitialized value in string ne at
        /usr/local/lib/perl5/site_perl/5.8.0/Tie/RegexpHash.pm line 58
+ (#1)
...
    usually optimized into "that " . $foo, and the warning will refer 
+to
    the concatenation (.) operator, even though there is no . in your
    program.