Commit 04b7805a authored by Richard Levitte's avatar Richard Levitte
Browse files

perl glob: make sure to put quotes around the pattern, in case of spaces 



RT#4486

Reviewed-by: default avatarMatt Caswell <matt@openssl.org>
parent cb663908

test/recipes/80-test_ssl_new.t

+1 −1
Original line number Diff line number Diff line
@@ -20,7 +20,7 @@ setup("test_ssl_new"); 


$ENV{TEST_CERTS_DIR} = srctop_dir("test", "certs");



my @conf_srcs =  glob(srctop_file("test", "ssl-tests", "*.conf.in"));

my @conf_srcs =  glob('"'.srctop_file("test", "ssl-tests", "*.conf.in").'"');

map { s/;.*// } @conf_srcs if $^O eq "VMS";

my @conf_files = map { basename($_) } @conf_srcs;

map { s/\.in// } @conf_files;

test/run_tests.pl

+2 −2
Original line number Diff line number Diff line
@@ -42,13 +42,13 @@ my $list_mode = scalar(grep /^list$/, @tests) != 0; 
if (grep /^(alltests|list)$/, @tests) {

    @tests = grep {

	basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/

    } glob(catfile($recipesdir,"*.t"));

    } glob('"'.catfile($recipesdir,"*.t").'"');

} else {

    my @t = ();

    foreach (@tests) {

	push @t, grep {

	    basename($_) =~ /^[0-9][0-9]-[^\.]*\.t$/

	} glob(catfile($recipesdir,"*-$_.t"));

	} glob('"'.catfile($recipesdir,"*-$_.t").'"');

    }

    @tests = @t;

}

util/process_docs.pl

+2 −2
Original line number Diff line number Diff line
@@ -72,9 +72,9 @@ my $symlink_exists = eval { symlink("",""); 1 }; 
foreach my $subdir (keys %{$options{subdir}}) {

    my $section = $options{subdir}->{$subdir};

    my $podsourcedir = catfile($options{sourcedir}, $subdir);

    my $podglob = catfile($podsourcedir, "*.pod");

    my $podglob = '"'.catfile($podsourcedir, "*.pod").'"';



    foreach my $podfile (glob "$podglob") {

    foreach my $podfile (glob $podglob) {

        my $podname = basename($podfile, ".pod");

        my $podpath = catfile($podfile);

        my %podinfo = ( section => $section );