diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-31 09:41:26 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-31 09:41:26 +0000 |
| commit | 568ad336973732c4d3fa134b7dcb8e82359c1f11 (patch) | |
| tree | e933e73318f4e7ba6da82f47a62c62bfbb723ad3 /makedef.pl | |
| parent | 7948272db9c63907ea8e92fdd3436cdaab2f9cce (diff) | |
| download | perl-568ad336973732c4d3fa134b7dcb8e82359c1f11.tar.gz | |
Ilya's OS2 patch (testing for damage on Win32)
p4raw-id: //depot/perlio@8280
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/makedef.pl b/makedef.pl index 4385f1ac77..6a30fc6ee9 100644 --- a/makedef.pl +++ b/makedef.pl @@ -143,16 +143,7 @@ if ($PLATFORM eq 'win32') { elsif ($PLATFORM eq 'os2') { ($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/; $v .= '-thread' if $ARCHNAME =~ /-thread/; - #$sum = 0; - #for (split //, $v) { - # $sum = ($sum * 33) + ord; - # $sum &= 0xffffff; - #} - #$sum += $sum >> 5; - #$sum &= 0xffff; - #$sum = printf '%X', $sum; ($dll = $define{PERL_DLL}) =~ s/\.dll$//i; - # print STDERR "'$dll' <= '$define{PERL_DLL}'\n"; print <<"---EOP---"; LIBRARY '$dll' INITINSTANCE TERMINSTANCE DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter' @@ -822,4 +813,13 @@ PerlIOBase_close PerlIO_define_layer PerlIO_pending PerlIO_unread -PerlIO_push
\ No newline at end of file +PerlIO_push +PerlIO_apply_layers +perlsio_binmode +PerlIO_binmode +PerlIO_init +PerlIO_tmpfile +PerlIO_setpos +PerlIO_getpos +PerlIO_vsprintf +PerlIO_sprintf |