There is a error in a simple source

[mobile . parmenides]

Hi,

   I'm new to perl. The following code is wrong., and I can not spot
it. Any suggestion?  Thx.

#!/usr/bin/perl -w

&init_words ();

sub init_words{
    while ( $filename=<*.secret> ){
        open( WORDLIST, $filename ) ||
            die "Can not open $filename: $!";
        if ( -M WORDLIST < 7 ){
            while ( $name = <WORDLIST> ){
                chmop( $name );
                $word = <WORDLIST>;
                chmop( $word );
                $word{$name} = $word;
            }
        }
        else{
            rename( $filename, "$filename.old" ) ||
                die "Can not rename $filename to $filename.old.";
        }
        close( WORDLIST );
    }
}


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/