12 my $f = $File::Find::name;
14 return if ( $f =~ /CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i);
19 $psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|;
21 print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f );
26 print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n";
27 print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
28 print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";
30 find(\&filefound, cwd.'/lib');
33 open OUT, ">Artistic.txt";
34 while (my $line = <IN>) {
36 print OUT "$line\r\n";