diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 02:23:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-13 02:23:16 +0000 |
| commit | 61d42ce43847d6cea183d4f40e2921e53606f13f (patch) | |
| tree | 98a862f5466c34e760371d4530634e628ebe4f2c /makedef.pl | |
| parent | ce8217e0ee91404d9ead31e9161c90ae176fd05b (diff) | |
| download | perl-61d42ce43847d6cea183d4f40e2921e53606f13f.tar.gz | |
New AIX dynaloading code from Jens-Uwe Mager.
Does break binary compatibility.
p4raw-id: //depot/perl@10554
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/makedef.pl b/makedef.pl index 56008efb22..300f9e8219 100644 --- a/makedef.pl +++ b/makedef.pl @@ -163,7 +163,15 @@ EXPORTS ---EOP--- } elsif ($PLATFORM eq 'aix') { - print "#!\n"; + $OSVER = `uname -v`; + chop $OSVER; + $OSREL = `uname -r`; + chop $OSREL; + if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) { + print "#! ..\n"; + } else { + print "#!\n"; + } } my %skip; |