I have a site search program that calls find.pl

It works fine on another site of mine yet when it gets called from this site it pulls up this error

Undefined subroutine "main'wanted" called at /usr/local/lib/perl/find.pl line 39.

Here is the script but I cant find whats wrong 


# Usage:
#    require "find.pl";
#
#    &find('/foo','/bar');
#
#    sub wanted { ... }
#        where wanted does whatever you want.  $dir contains the
#        current directory name, and $_ the current filename within
#        that directory.  $name contains "$dir/$_".  You are cd'ed
#        to $dir when the function is called.  The function may
#        set $prune to prune the tree.
#
# This library is primarily for find2perl, which, when fed
#
#   find2perl / -name .nfs\* -mtime +7 -exec rm -f {} \; -o -fstype nf
+s -prune
#
# spits out something like this
#
    sub wanted {
        /^\.nfs.*$/ &&
        (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
        int(-M _) > 7 &&
        unlink($_)
        ||
        ($nlink || (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_))) &
+&
        $dev < 0 &&
        ($prune = 1);
    }

sub find {
    chop($cwd = `pwd`);
    foreach $topdir (@_) {
    (($topdev,$topino,$topmode,$topnlink) = stat($topdir))
      || (warn("Can't stat $topdir: $!\n"), next);
    if (-d _) {
        if (chdir($topdir)) {
        ($dir,$_) = ($topdir,'.');
        $name = $topdir;
        &wanted;
        $topdir =~ s,/$,, ;
        &finddir($topdir,$topnlink);
        }
        else {
        warn "Can't cd to $topdir: $!\n";
        }
    }
    else {
        unless (($dir,$_) = $topdir =~ m#^(.*/)(.*)$#) {
        ($dir,$_) = ('.', $topdir);
        }
        $name = $topdir;
        chdir $dir && &wanted;
    }
    chdir $cwd;
    }
}

sub finddir {
    local($dir,$nlink) = @_;
    local($dev,$ino,$mode,$subcount);
    local($name);

    # Get the list of files in the current directory.

    opendir(DIR,'.') || (warn "Can't open $dir: $!\n", return);
    local(@filenames) = readdir(DIR);
    closedir(DIR);

    if ($nlink == 2) {        # This dir has no subdirectories.
    for (@filenames) {
        next if $_ eq '.';
        next if $_ eq '..';
        $name = "$dir/$_";
        $nlink = 0;
        &wanted;
    }
    }
    else {                    # This dir has subdirectories.
    $subcount = $nlink - 2;
    for (@filenames) {
        next if $_ eq '.';
        next if $_ eq '..';
        $nlink = $prune = 0;
        $name = "$dir/$_";
        &wanted;
        if ($subcount > 0) {    # Seen all the subdirs?

        # Get link count and check for directoriness.

        ($dev,$ino,$mode,$nlink) = lstat($_) unless $nlink;
        
        if (-d _) {

            # It really is a directory, so do it recursively.

            if (!$prune && chdir $_) {
            &finddir($name,$nlink);
            chdir '..';
            }
            --$subcount;
        }
        }
    }
    }
}
1;

[download]

In reply to Strange Error Message when using find.pl by uk_knight98

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.