equal
deleted
inserted
replaced
1 # |
1 # |
2 # CDDL HEADER START |
2 # CDDL HEADER START |
3 # |
3 # |
4 # The contents of this file are subject to the terms of the |
4 # The contents of this file are subject to the terms of the |
5 # Common Development and Distribution License, Version 1.0 only |
5 # Common Development and Distribution License (the "License"). |
6 # (the "License"). You may not use this file except in compliance |
6 # You may not use this file except in compliance with the License. |
7 # with the License. |
|
8 # |
7 # |
9 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE |
8 # You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE |
10 # or http://www.opensolaris.org/os/licensing. |
9 # or http://www.opensolaris.org/os/licensing. |
11 # See the License for the specific language governing permissions |
10 # See the License for the specific language governing permissions |
12 # and limitations under the License. |
11 # and limitations under the License. |
20 # CDDL HEADER END |
19 # CDDL HEADER END |
21 # |
20 # |
22 # Copyright 2004 Sun Microsystems, Inc. All rights reserved. |
21 # Copyright 2004 Sun Microsystems, Inc. All rights reserved. |
23 # Use is subject to license terms. |
22 # Use is subject to license terms. |
24 # |
23 # |
25 #ident "%Z%%M% %I% %E% SMI" |
|
26 # |
|
27 |
24 |
28 use strict; |
25 use strict; |
29 use warnings; |
26 use warnings; |
30 use Config; |
27 use Config; |
31 our $VERSION = '%I%'; |
28 our $VERSION = '1.2'; |
32 |
29 |
33 my $fh; |
30 my $fh; |
34 open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n"); |
31 open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n"); |
35 |
32 |
36 my $perlver = sprintf('%vd', $^V); |
33 my $perlver = sprintf('%vd', $^V); |
42 $startperl |
39 $startperl |
43 # |
40 # |
44 # Copyright 2004 Sun Microsystems, Inc. All rights reserved. |
41 # Copyright 2004 Sun Microsystems, Inc. All rights reserved. |
45 # Use is subject to license terms. |
42 # Use is subject to license terms. |
46 # |
43 # |
47 #ident "%Z%$ARGV[0] %I% %E% SMI" |
|
48 # |
|
49 |
44 |
50 use $perlver; |
45 use $perlver; |
51 use strict; |
46 use strict; |
52 use warnings; |
47 use warnings; |
53 our \$VERSION = '%I%'; |
48 our \$VERSION = '$VERSION'; |
54 |
49 |
55 \$ENV{PERL5_OVERRIDE_CONFIG} = '1'; |
50 \$ENV{PERL5_OVERRIDE_CONFIG} = '1'; |
56 if (exists(\$ENV{PERL5LIB})) { |
51 if (exists(\$ENV{PERL5LIB})) { |
57 \$ENV{PERL5LIB} = |
52 \$ENV{PERL5LIB} = |
58 "$privlib:\$ENV{PERL5LIB}"; |
53 "$privlib:\$ENV{PERL5LIB}"; |