#!/usr/bin/perl -w
-# $Id: t-prot,v 1.322 2014/08/18 15:14:36 jochen Exp $
+# $Id: t-prot,v 1.324 2014/08/22 08:58:19 jochen Exp $
require 5.006;
use strict;
use Fcntl qw(O_EXCL O_WRONLY O_CREAT);
use Getopt::Long qw(:config gnu_getopt no_ignore_case);
-use constant VER => '3.1';
+use constant VER => '3.2';
use constant REV => '';
-use constant REL => q$Revision: 1.322 $=~m/(\d+(?:\.\d+)+)/;
+use constant REL => q$Revision: 1.324 $=~m/(\d+(?:\.\d+)+)/;
# MTA expecting mail on STDIN
# (you might have to adjust this if using a different MTA)
use constant SENDMAIL => '/usr/sbin/sendmail -oi';
$$lines[$x] =~ /^>>> On [A-Z][a-z][a-z]?, [A-Z][a-z][a-z]? \d\d?, \d\d\d\d at [ \d]\d:\d\d [AP]M, in message/))) {
$x++;
$trad = 0;
- $bigqn = 0;
+ if ($k) { $bigqn = 0; }
last DONE;
}
}