[Fun With Perl] Idiom misuse (typos can getcha)

[Vicki Brown <vlb@cfcl.com>]

# Code

START: while (defined $file = readdir(DIR)) {
    next START if ($file =~ /.+/);   # skip . and .. entries
    open(FH, ">$file") or die;
    while (<FH>) {
    ...
    }
}


# oops; that ran awfully fast ;^)
-- --
        |\      _,,,---,,_       Vicki Brown <vlb@cfcl.com>
  ZZZzz /,`.-'`'    -.  ;-;;,_   Journeyman Sourceror: Scripts & Philtres
       |,4-  ) )-,_. ,\ (  `'-'  P.O. Box 1269  San Bruno  CA  94066
      '---''(_/--'  `-'\_) http://www.cfcl.com/~vlb  http://www.macperl.org

==== Want to unsubscribe from this list? (Don't you love us anymore?)
==== Well, if you insist... Send mail with body "unsubscribe" to
==== fwp-request@technofile.org

</x-flowed>