On 1/18/08, Jeff King <peff@xxxxxxxx> wrote:
> +foreach my $f (@files) {
> + my $error = validate_patch($f);
> + $error and die "fatal: $f: $error\nwarning: no patches were sent\n";
> +}
> +
> if (@files) {
> unless ($quiet) {
> print $_,"\n" for (@files);
> @@ -837,3 +842,15 @@ sub unique_email_list(@) {
> }
> return @emails;
> }
> +
> +sub validate_patch {
> + my $fn = shift;
> + open(my $fh, '<', $fn)
> + or die "unable to open $fn: $!\n";
> + while (my $line = <$fh>) {
> + if (length($line) > 998) {
> + return "patch contains line longer than 998 characters";
> + }
> + }
> + return undef;
> +}
How about offering the line number. e.g.:
return "patch line number $. is longer than 998 characters";
> diff --git a/t/t9001-send-email.sh b/t/t9001-send-email.sh
> index 659f9c7..1c41810 100755
> --- a/t/t9001-send-email.sh
> +++ b/t/t9001-send-email.sh
> @@ -78,4 +78,24 @@ test_expect_success 'Show all headers' '
> diff -u expected-show-all-headers actual-show-all-headers
> '
>
> +test_expect_success 'no patch was sent' '
Shouldn't that be "no patches were sent" to match the perl output?
j.
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
