Ok, I've created a test suite to avoid such regressions. Sorry for the noise.

Approved by:	ssouhlal (implicit)
This commit is contained in:
Florent Thoumie 2006-01-11 16:51:21 +00:00
parent 6dd881af19
commit 59d00daaff

View File

@ -56,7 +56,7 @@ my $mfchome = $MFCHOME ? $MFCHOME : "/var/tmp/mfc";
my $mfclogin = $MFCLOGIN ? $MFCLOGIN : "";
my $cvsroot = $MFCCVSROOT ? $MFCCVSROOT : ':pserver:anoncvs@anoncvs.at.FreeBSD.org:/home/ncvs';
my $version = "0.4.2";
my $version = "0.4.3";
my %opt;
my $commit_author;
my $commit_date;
@ -255,7 +255,7 @@ if ($opt{s}) {
print "Searching commit mail on www.freebsd.org...\n";
$commiturl = search_mail($opt{s});
print "Fetching commit mail from www.freebsd.org...\n";
@commitmail = `fetch -q -o - '$commiturl'`;
@commitmail = `fetch -q -o - $commiturl`;
} elsif ($opt{f}) {
open MAIL, $opt{f} || die "Can't open $opt{f} for reading.";
@commitmail = <MAIL>;