use Getopt::Long;
use constant {
- PRT_VERSION => 'Privoxy-Regression-Test 0.7.2',
+ PRT_VERSION => 'Privoxy-Regression-Test 0.7.3',
CURL => 'curl',
my ($token, $value) = (undef, undef);
# Remove leading and trailing white space and a
- # a leading <pre> which is part of the first line.
+ # leading <pre> which is part of the first line.
s@^\s*(<pre>)?@@;
s@\s*$@@;