Revision e55f0ed4
Von Sven Schöling vor fast 13 Jahren hinzugefügt
SL/InstallationCheck.pm | ||
---|---|---|
71 | 71 |
|
72 | 72 |
sub classes_from_latex { |
73 | 73 |
my ($path, $class) = @_; |
74 |
eval { use String::ShellQuote; 1 } or warn "can't load String::ShellQuote" && return; |
|
75 |
$path = shell_quote $path; |
|
76 |
$class = shell_quote $class; |
|
77 |
|
|
74 | 78 |
open my $pipe, q#egrep -rs '^[\ \t]*# . "$class' $path". q# | sed 's/ //g' | awk -F '{' '{print $2}' | awk -F '}' '{print $1}' |#; |
75 | 79 |
my @cls = <$pipe>; |
76 | 80 |
close $pipe; |
Auch abrufbar als: Unified diff
Sachen die ans System übergeben werden richtig Quoten.
hat als Seiteneffekt, dass Latex Tests String::ShellQuote brauchen.