File::Find and Embperl

[Ole Göbbels]

Hello Everybody,

I want to use File::Find from within Embperl. With the following code

[-
        use Image::Magick;
        use File::Find;

        $directory[0] = "bilddatenbank";
        find(\&wanted, @directory);


sub wanted {
        if ( /.*\.jpg/i || /.*\.gif/i ) {
                 print "$File::Find::name\n\n";

        }
}
-]

I get the error

 [874]ERR: 24: Error in Perl code: Can't use string ("") as a subroutine ref 
while "strict refs" in use at /usr/lib/perl5/5.6.1/File/Find.pm line 450.

BTW my configuration details:

Apache/1.3.20 (Linux/SuSE) PHP/4.0.6 mod_perl/1.26 HTML::Embperl 1.3.4

Can anybody please tell me what to do?

TIA,

Ole


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]