#! /usr/bin/perl -w
use strict;
+use warnings 'all';
use Getopt::Long;
my $exact = 0;
$errors++;
}
}
+while (<EXPECTED>) {
+ print "Extra lines in $ARGV[0]\n";
+ $errors++;
+ last;
+}
+while (<ACTUAL>) {
+ print "Extra lines in $ARGV[1]\n";
+ $errors++;
+ last;
+}
if ($verbose) {
print "$errors errors\n";
if (!$exact) {