/usr/share/perl5/auto/OpaL/dir/getdirlist.al is in opalmod 0.2.2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | # NOTE: Derived from blib/lib/OpaL/dir.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package OpaL::dir;
#line 121 "blib/lib/OpaL/dir.pm (autosplit into blib/lib/auto/OpaL/dir/getdirlist.al)"
###############################################################################
############################# DOCUMENTATION ###################################
###############################################################################
# Below is the stub of documentation for your module. You better edit it!
###############################################################################
########################### AUTOLOAD METHODS ##################################
###############################################################################
###############################################################################
# Name: getdirlist
# Description: Get the filenames for a directory, recursive.
# Argument: A directory name.
# Returns: A list of filenames.
# Author: Ola Lundqvist <ola@inguza.com>
# Date: 2000-05-13
# 2000-06-29 Argument definition.
###############################################################################
sub getdirlist {#($) {
pdebug(5,"Entering getdirlist.");
my $dir,@t = ();
while ($dir = shift) {
&action(! (opendir (D,$dir)),
"Trying to open $dir.");
my $k;
while ($k = readdir(D)) {
if (-f "$dir/$k") {
if ($k !~ /~$/ &&
$k !~ /^#.*#$/
) {
push @t, "$dir/$k";
}
}
elsif (-d "$dir/$k") {
if ($k !~ /^\.+$/ &&
$k !~ /CVS/
) {
push @_, "$dir/$k";
}
}
}
}
return @t;
}
1;
# end of OpaL::dir::getdirlist
|