Sign in
apache
/
mod_perl
/
refs/tags/v1_21_02
/
.
/
apaci
/
find_source.PL
blob: 44cf4271fe733c1dd76f829ba713944435068aac [
file
] [
log
] [
blame
]
chdir
".."
unless
-
e
'MANIFEST'
;
local
(*
MANI
);
open MANI
,
"MANIFEST"
or
die
"open MANIFEST $!"
;
while
(<
MANI
>)
{
next
unless
s
,^
src
/
modules
/
perl
/,,;
chomp
;
next
unless
m
,.+
\.
(
xs
|
c
|
h
)
$
,;
print
"$_ "
;
}
close MANI
;