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.