1 #
   2 # CDDL HEADER START
   3 #
   4 # The contents of this file are subject to the terms of the
   5 # Common Development and Distribution License (the "License").
   6 # You may not use this file except in compliance with the License.
   7 #
   8 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9 # or http://www.opensolaris.org/os/licensing.
  10 # See the License for the specific language governing permissions
  11 # and limitations under the License.
  12 #
  13 # When distributing Covered Code, include this CDDL HEADER in each
  14 # file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15 # If applicable, add the following below this CDDL HEADER, with the
  16 # fields enclosed by brackets "[]" replaced with your own identifying
  17 # information: Portions Copyright [yyyy] [name of copyright owner]
  18 #
  19 # CDDL HEADER END
  20 #
  21 # Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
  22 # Use is subject to license terms.
  23 #
  24 
  25 use strict;
  26 use warnings;
  27 use Config;
  28 our $VERSION = '1.2';
  29 
  30 my $fh;
  31 open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n");
  32 
  33 my $perlver = sprintf('%vd', $^V);
  34 my $startperl = $Config{startperl};
  35 my $perlpath = $Config{perlpath};
  36 my $privlib = "$Config{installprivlib}/Sun/Solaris/PerlGcc";
  37 
  38 print $fh <<EOF;
  39 $startperl
  40 #
  41 # Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
  42 # Use is subject to license terms.
  43 #
  44 
  45 use $perlver;
  46 use strict;
  47 use warnings;
  48 our \$VERSION = '$VERSION';
  49 
  50 \$ENV{PERL5_OVERRIDE_CONFIG} = '1';
  51 if (exists(\$ENV{PERL5LIB})) {
  52         \$ENV{PERL5LIB} =
  53             "$privlib:\$ENV{PERL5LIB}";
  54 } else {
  55         \$ENV{PERL5LIB} =
  56             '$privlib';
  57 }
  58 exec('$perlpath', \@ARGV)
  59     || die("Can't exec $perlpath: \$!\\n");
  60 EOF
  61 close($fh) || die("Can't open perlgcc: $!\n");
  62 exit(0);