Make sure $fname will not give us any surprises with any funny characters.

PR: 256
This commit is contained in:
Richard Levitte 2002-10-11 11:07:28 +00:00
parent 2245cd87d4
commit 42b06fbaca

View File

@ -100,7 +100,8 @@ sub check_file {
sub link_hash_cert { sub link_hash_cert {
my $fname = $_[0]; my $fname = $_[0];
my ($hash, $fprint) = `$openssl x509 -hash -fingerprint -noout -in "$fname"`; $fname =~ s/'/'\\''/;
my ($hash, $fprint) = `$openssl x509 -hash -fingerprint -noout -in '$fname'`;
chomp $hash; chomp $hash;
chomp $fprint; chomp $fprint;
$fprint =~ s/^.*=//; $fprint =~ s/^.*=//;