@@ -37,9 +37,9 @@ foreach my $line (@contents) {
print OUT $line;
} elsif ($line =~ /^!/) {
- } elsif ($line =~ /^\@/) {
- $line =~ s/^\@//;
- print OUT $line;
+ } elsif ($line =~ /^\@/) {
+ $line =~ s/^\@//;
+ print OUT $line;
} else {
my $act = sprintf(" action %03d ", $action++);
print OUT $act . $line;