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);