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
25use strict;
26use warnings;
27use Config;
28our $VERSION = '1.2';
29
30my $fh;
31open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n");
32
33my $perlver = sprintf('%vd', $^V);
34my $startperl = $Config{startperl};
35my $perlpath = $Config{perlpath};
36my $privlib = "$Config{installprivlib}/Sun/Solaris/PerlGcc";
37
38print $fh <<EOF;
39$startperl
40#
41# Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
42# Use is subject to license terms.
43#
44
45use $perlver;
46use strict;
47use warnings;
48our \$VERSION = '$VERSION';
49
50\$ENV{PERL5_OVERRIDE_CONFIG} = '1';
51if (exists(\$ENV{PERL5LIB})) {
52	\$ENV{PERL5LIB} =
53	    "$privlib:\$ENV{PERL5LIB}";
54} else {
55	\$ENV{PERL5LIB} =
56	    '$privlib';
57}
58exec('$perlpath', \@ARGV)
59    || die("Can't exec $perlpath: \$!\\n");
60EOF
61close($fh) || die("Can't open perlgcc: $!\n");
62exit(0);
63