10 $CROSSREPLACEPATH="H:\\perl";
14 my $f = $File::Find::name;
16 return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$/i);
19 $back =~ s|$CROSSCOMPILEPATH||;
25 $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i;
27 print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n" if ( -f $f );
33 print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
34 print OUT "\"$CROSSREPLACEPATH\\Artistic\"-\"\",FT,TA\n";
35 print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\system\\programs\\perl.exe\"\n";
37 find(\&filefound, cwd.'/lib');
38 print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"