1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#! /usr/bin/perl
# used internally to filter the yuicompressor output to not show certain messages
while ($line = <>) {
if ($line =~ m/use a single 'var' statement per scope/) {
$line = <>; $line = <>; # skip next two lines
} elsif ($line =~ m/The symbol (VERSION|TEXCLASS|MO) is declared but/) {
$line = <>; $line = <>; # skip next two lines
} elsif ($line =~ m/Using 'eval' is not recommended/) {
$line = <>; $line = <>; # skip next two lines
} elsif ($line =~ m/Using charset MacRoman/) {
$line = <>; # skip blank line
} else {
print $line;
}
}
1;
|
