Home | History | Annotate | Download | only in PerlGcc
      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);
     63