This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bump perl version number to 5.15.1
[perl5.git] / epoc / createpkg.pl
CommitLineData
14bdf8d3
OF
1#!/usr/bin/perl
2
3use File::Find;
4use Cwd;
5
507b4ec1 6$VERSION="5.15.1";
85ca448a 7$EPOC_VERSION=1;
14bdf8d3
OF
8
9
10sub filefound {
14bdf8d3 11
02a99678
JH
12 my $f = $File::Find::name;
13
85ca448a 14 return if ( $f =~ /CVS|Unicode|unicore|CPAN|ExtUtils|IPC|User|DB.pm|\.a$|\.ld$|\.exists$|\.pod$|\.t$/i);
02a99678 15 my $back = $f;
14bdf8d3 16
02a99678 17 my $psiback = $back;
14bdf8d3 18
85ca448a
JH
19 $psiback =~ s|.*/lib/|\\emx\\lib\\perl\\$VERSION\\|;
20 $psiback =~ s|/|\\|g;
02a99678 21 print OUT "\"$back\"-\"!:$psiback\"\n" if ( -f $f );
14bdf8d3
OF
22}
23
14bdf8d3
OF
24open OUT,">perl.pkg";
25
85ca448a
JH
26print OUT "#{\"perl$VERSION\"},(0x100051d8),0,$EPOC_VERSION,0\n";
27print OUT "\"" . cwd . "/Artistic.txt\"-\"\",FT,TC\n";
28print OUT "\"" . cwd . "/perl\"-\"!:\\emx\\bin\\perl.exe\"\n";
14bdf8d3
OF
29
30find(\&filefound, cwd.'/lib');
02a99678
JH
31
32open IN, "<Artistic";
33open OUT, ">Artistic.txt";
34while (my $line = <IN>) {
35 chomp $line;
85ca448a 36 print OUT "$line\r\n";
02a99678 37}
14bdf8d3 38
02a99678
JH
39close IN;
40close OUT;
14bdf8d3 41