This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add libscheck for IRIX.
[perl5.git] / epoc / createpkg.pl
CommitLineData
14bdf8d3
OF
1#!/usr/bin/perl
2
3use File::Find;
4use Cwd;
5
f83d2536
GS
6$VERSION="5.5";
7$PATCH="650";
8$EPOC_VERSION=19;
3a2f06e9 9$CROSSCOMPILEPATH=cwd;
f83d2536 10$CROSSREPLACEPATH="H:\\devel\\perl5.5.650";
14bdf8d3
OF
11
12
13sub filefound {
14 my $f = $File::Find::name;
15
f83d2536 16 return if ( $f =~ /CVS|unicode|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$/i);
14bdf8d3
OF
17 my $back = $f;
18
19 $back =~ s|$CROSSCOMPILEPATH||;
20
21 $back =~ s|/|\\|g;
22
23 my $psiback = $back;
24
f83d2536 25 $psiback =~ s/\\lib\\/\\perl\\lib\\$VERSION.$PATCH\\/i;
14bdf8d3 26
3a2f06e9 27 print OUT "\"$CROSSREPLACEPATH$back\"-\"!:$psiback\"\n" if ( -f $f );
14bdf8d3
OF
28;
29}
30
14bdf8d3
OF
31open OUT,">perl.pkg";
32
33print OUT "#{\"perl$VERSION\"},(0x100051d8),$PATCH,$EPOC_VERSION,0\n";
34
3a2f06e9 35print OUT "\"$CROSSREPLACEPATH\\perlmain.exe\"-\"!:\\perl.exe\"\n";
14bdf8d3
OF
36
37find(\&filefound, cwd.'/lib');
f83d2536 38print OUT "@\"G:\\lib\\stdlib.sis\",(0x0100002c3)\n"
14bdf8d3
OF
39
40