9 lines
108 B
Perl
9 lines
108 B
Perl
# remove #pragma once and empty lines
|
|
while (<>)
|
|
{
|
|
if (!/#pragma once/ && ! /^$/)
|
|
{
|
|
print;
|
|
}
|
|
}
|