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