Patch for bug 271964: tests 1 and 3 from the testing suite shouldn't fail when $^X contains spaces; patch by me, r=jouni, a=justdave.

This commit is contained in:
jocuri%softhome.net 2004-12-05 14:13:27 +00:00
Родитель 60739616b9
Коммит 42c528510f
2 изменённых файлов: 2 добавлений и 2 удалений

Просмотреть файл

@ -53,7 +53,7 @@ my $fh;
}
my @testitems = @Support::Files::testitems;
my $perlapp = $^X;
my $perlapp = "\"$^X\"";
# Test the scripts by compiling them

Просмотреть файл

@ -47,7 +47,7 @@ my $fh;
}
my @testitems = @Support::Files::testitems;
my $perlapp = $^X;
my $perlapp = "\"$^X\"";
foreach my $file (@testitems) {
$file =~ s/\s.*$//; # nuke everything after the first space (#comment)