if ($^O eq 'VMS') {
if ($ENV{PERL_CORE}) {
- # Fragile if the extensions change hierachy within
+ # Fragile if the extensions change hierarchy within
# the Perl core but this should do for now.
$cccmd = "$Config{'cc'} /include=([---]) $tmp.c";
} else {
NAMES => \@names,
);
} else {
- foreach my $file ('const-c.inc', 'const-xs.inc') {
+ my $file;
+ foreach $file ('const-c.inc', 'const-xs.inc') {
my $fallback = File::Spec->catfile('fallback', $file);
local $/;
open IN, "<$fallback" or die "Can't open $fallback: $!";
sub main {
print "Configuring Time::HiRes...\n";
+ if ($] == 5.007002) {
+ die "Cannot Configure Time::HiRes for Perl $], aborting.\n";
+ }
if ($^O =~ /Win32/i) {
$DEFINE = '-DSELECT_IS_BROKEN';
doMakefile;
doConstants;
my $make = $Config{'make'} || "make";
- unless ($ENV{PERL_CORE}) {
+ unless (exists $ENV{PERL_CORE} && $ENV{PERL_CORE}) {
print <<EOM;
Now you may issue '$make'. Do not forget also '$make test'.
-
EOM
- if ($ENV{LC_ALL} =~ /utf-?8/i ||
- $ENV{LC_CTYPE} =~ /utf-?8/i ||
- $ENV{LANG} =~ /utf-?8/i) {
+ if ((exists $ENV{LC_ALL} && $ENV{LC_ALL} =~ /utf-?8/i) ||
+ (exists $ENV{LC_CTYPE} && $ENV{LC_CTYPE} =~ /utf-?8/i) ||
+ (exists $ENV{LANG} && $ENV{LANG} =~ /utf-?8/i)) {
print <<EOM;
NOTE: if you get an error like this (the line number may vary):
Makefile:91: *** missing separator
then set the environment variable LC_ALL to "C" and retry
from scratch (re-run perl "Makefile.PL").
-
EOM
}
}