File::Find error when pruning top-level directories

[p5pRT]

Migrated from rt.perl.org#1233 (status was 'resolved')

Searchable as RT1233$

[p5pRT]

From rra@stanford.edu

File​::Find in at least 5.005_02 and 5.005_03 gets very confused if you
pass find() multiple relative starting directories and the wanted() sub
prunes one of them. That's because it does a next in the main loop in
find_opt(), thus skipping the chdir back to the starting directory. I
believe this one-line patch will fix it​:

Inline Patch

--- lib/File/Find.pm.orig       Sat Oct 31 18:55:13 1998
+++ lib/File/Find.pm    Thu Aug 19 04:30:33 1999
@@ -130,6 +130,7 @@
                warn "Can't cd to $dir: $!\n";
            }
        }
+    } continue {
        chdir $cwd;
     }
 }

Perl Info

Site configuration information for perl 5.00503:

Configured by rra at Thu Jun 17 22:47:21 PDT 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
    osname=solaris, osvers=2.6, archname=sun4-solaris
    uname='sunos headwall.stanford.edu 5.6 generic_105181-14 sun4m sparc sunw,sparcstation-20 '
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='gcc', optimize='-O2', gccversion=2.8.1
    cppflags=''
    ccflags =''
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -L/usr/pubsw/lib'
    libpth=/usr/pubsw/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt -lbsd
    libc=/lib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='  -R /usr/local/lib/perl5/5.00503/sun4-solaris/CORE'
    cccdlflags='-fPIC', lddlflags='-G -L/usr/pubsw/lib'

Locally applied patches:



@INC for perl 5.00503:
    /usr/local/lib/perl5/5.00503/sun4-solaris
    /usr/local/lib/perl5/5.00503
    /usr/local/lib/perl5/site_perl/5.005/sun4-solaris
    /usr/pubsw/lib/perl5/site_perl/systems/@sys
    /usr/local/lib/perl5/site_perl/5.005
    /usr/pubsw/lib/perl5/site_perl
    .


Environment for perl 5.00503:
    HOME=/var/news
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/var/news/bin:/var/news/local:/var/qmail/bin:/usr/local/bin:/usr/pubsw/bin:/usr/bin:/bin:/usr/sbin:/usr/ucb:/usr/bsd:/usr/ccs/bin:/opt/SUNWspro/bin:/usr/pubsw/X/bin
    PERL_BADLANG (unset)
    SHELL=/bin/tcsh

-- 
Russ Allbery (rra@stanford.edu)         <URL:http://www.eyrie.org/~eagle/>