diff options
author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-29 21:21:22 +0000 |
---|---|---|
committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-04-29 21:21:22 +0000 |
commit | ea873bb67fb615e0207d0b33da63b8ec5644ad3e (patch) | |
tree | 3ec9c082378a295d799240ab8e1fcb31ae2b4658 /bin | |
parent | 7bc80a85dc2f6e1d3b51db815ce654a810b91e92 (diff) | |
download | ATCD-ea873bb67fb615e0207d0b33da63b8ec5644ad3e.tar.gz |
ChangeLogTag:Sat Apr 29 14:15:12 2000 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/clean_dsp.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/clean_dsp.pl b/bin/clean_dsp.pl index 620c44d1de2..a3ff9be8205 100755 --- a/bin/clean_dsp.pl +++ b/bin/clean_dsp.pl @@ -28,7 +28,11 @@ loop: while (<FILE>) if (/^\!IF/) { ++$if_depth; } - elsif (/^\!ENDIF/) { + + push @saved_lines, $_ + if ($if_depth > 0); + + if (/^\!ENDIF/) { --$if_depth; print @saved_lines if ($if_depth == 0 && $dirty == 1); @@ -38,10 +42,6 @@ loop: while (<FILE>) elsif ($if_depth == 0) { print; } - - - push @saved_lines, $_ - if ($if_depth > 0); $dirty = 1 if ($if_depth > 0 && !/^\!/ && !/^\s+$/); |