From: Mark Andrews Date: Tue, 6 Oct 2015 07:19:24 +0000 (+1100) Subject: handle $/ ) { + $_ = ; + close(SOURCE) if (eof(SOURCE)); + next; + } + if (/^; + next if (eof(SOURCE)); + $before_copyright = + "$before_copyright$_"; + if (/]>$/) { + $_ = ; + last; + } + } + close(SOURCE) if (eof(SOURCE)); + next; + } if (/>$/ ) { $_ = ; close(SOURCE) if (eof(SOURCE));