13 my $f = $File::Find::name;
15 return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
20 $psiback =~ s|.*/lib/|\\perl\\lib\\$VERSION.$PATCH\\|;
22 print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f );
27 print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
28 print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TA\n";
29 print OUT "\"" . cwd . "/perl\"-\"!:\\system\\programs\\perl.exe\"\n";
31 find(\&filefound, cwd.'/lib');
32 # print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n";
35 open OUT, ">Artistic.txt";
36 while (my $line = <IN>) {
38 print OUT "$line\x13\x10";