mirror of
https://github.com/irssi/irssi.git
synced 2024-08-04 03:34:18 -04:00
15 lines
150 B
Perl
15 lines
150 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
if(m!/\*.SYNTAX\:! || $tt) {
|
||
|
|
s!^\s+! !;
|
||
|
|
if (m#\*/#) {
|
||
|
|
$tt=0;
|
||
|
|
} else {
|
||
|
|
$tt=1;
|
||
|
|
chomp;
|
||
|
|
}
|
||
|
|
print;
|
||
|
|
}
|
||
|
|
}
|