Michael G Schwern wrote:

And there are the wish-list items of having Install.pm and
Manifest.pm be case blind when retrieving filenames from the file
system but still being able to match those filenames to mixed-case
package names.


That's a big thing which I'm not going to worry about prior to release
unless a patch appears on my doorstep.

FWIW, we have been working on Apache::test/Apache::Test collision on case-insensitive filesystems, so the following code may be helpful as it's tested to read in the real case of the file.


    foreach (@INC) {
        my $dir = catdir $_, "Apache";
        next unless -d $dir;
        opendir DIR, $dir or die "Cannot opendir $dir: $!\n";
        my @matches = grep /^Test.pm$/, readdir DIR;
        closedir DIR;
        next unless @matches;
        my $file = catfile $dir, $matches[0];
        do $file;
        last;
    }

should be easy to adjust to read other files...

__________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com



Reply via email to