Changeset 3223 for trunk/essentials/dev-lang/perl/installperl

Timestamp:

Apr 29, 2007, 8:02:22 PM (18 years ago)

Author:

bird

Message:

installation hacks.

File:

• trunk/essentials/dev-lang/perl/installperl (modified) (2 diffs)

trunk/essentials/dev-lang/perl/installperl

@@ -183 +183 @@
         if $patchlevel != $Config{'PERL_VERSION'};
 
+my %MyConfig;
+$MyConfig{'installbin'}      = $Config{'installbin'};
+$MyConfig{'installscript'}   = $Config{'installscript'};
+$MyConfig{'installarchlib'}  = $Config{'installarchlib'};
+$MyConfig{'installsitelib'}  = $Config{'installsitelib'};
+$MyConfig{'installsitearch'} = $Config{'installsitearch'};
+$MyConfig{'installprivlib'}  = $Config{'installprivlib'};
+$MyConfig{'installman1dir'}  = $Config{'installman1dir'};
+$MyConfig{'installman3dir'}  = $Config{'installman3dir'};
+if ($^O eq 'os2' && "$destdir" ne '') {
+    # Drop the /@unixroot bit if not installing to the unixroot.
+    my $unixroot = '/@unixroot';
+    $MyConfig{'installbin'}      =~ s/^$unixroot//;
+    $MyConfig{'installscript'}   =~ s/^$unixroot//;
+    $MyConfig{'installarchlib'}  =~ s/^$unixroot//;
+    $MyConfig{'installsitelib'}  =~ s/^$unixroot//;
+    $MyConfig{'installsitearch'} =~ s/^$unixroot//;
+    $MyConfig{'installprivlib'}  =~ s/^$unixroot//;
+    $MyConfig{'installman1dir'}  =~ s/^$unixroot//;
+    $MyConfig{'installman3dir'}  =~ s/^$unixroot//;
+    #$Config{'archlibexp'}      =~ s/^$unixroot//;
+    #$Config{'privlibexp'}      =~ s/^$unixroot//;
+    #$Config{'scriptdir'}       =~ s/^$unixroot//;
+    #$Config{'sitearchexp'}     =~ s/^$unixroot//;
+    #$Config{'sitelibexp'}      =~ s/^$unixroot//;
+}
+
 # Fetch some frequently-used items from %Config
-my $installbin = "$destdir$Config{installbin}";
-my $installscript = "$destdir$Config{installscript}";
-my $installprivlib = "$destdir$Config{installprivlib}";
-my $installarchlib = "$destdir$Config{installarchlib}";
-my $installsitelib = "$destdir$Config{installsitelib}";
-my $installsitearch = "$destdir$Config{installsitearch}";
-my $installman1dir = "$destdir$Config{installman1dir}";
+my $installbin = "$destdir$MyConfig{installbin}";
+my $installscript = "$destdir$MyConfig{installscript}";
+my $installprivlib = "$destdir$MyConfig{installprivlib}";
+my $installarchlib = "$destdir$MyConfig{installarchlib}";
+my $installsitelib = "$destdir$MyConfig{installsitelib}";
+my $installsitearch = "$destdir$MyConfig{installsitearch}";
+my $installman1dir = "$destdir$MyConfig{installman1dir}";
 my $man1ext = $Config{man1ext};
 my $libperl = $Config{libperl};
@@ -309 +336 @@
     $packlist->{"$installbin/$perldll"} = { type => 'file' };
 } # if (($Is_W32 and ! $Is_NetWare) or $Is_Cygwin)
+elsif ($^O eq 'os2') {
+    # Install the DLL
+    my $perldll = `cat imp_version | tr -d '\r\n'`;
+    if ($perldll ne '') {
+        $perldll .= ".dll";
+    } else {
+        print "warning: imp_version is missing...";
+        my @perldllfiles;
+        @perldllfiles = <perl*.dll>;
+        $perldll = pop @perldllfiles;
+        die 'error: cannot find the perl dll!' if $perldll eq '';
+    }
+
+    safe_unlink("$installbin/../lib/$perldll");
+    copy("$perldll", "$installbin/../lib/$perldll");
+    chmod(0644, "$installbin/../lib/$perldll");
+    $packlist->{"$installbin/../lib/$perldll"} = { type => 'file' };
+}
 
 # First we install the version-numbered executables.