git/list[1] front-page[2] threads[3] people[4] search[5] about
 

Re: [PATCH] git-svn: handle leading/trailing whitespace from svnsync revprops

From
Junio C Hamano <gitster@pobox.com>
Date
Jan 12, 2008, 07:57 UTC
Message-ID
<7vzlvbv5m9.fsf@gitster.siamese.dyndns.org>
In-Reply-To
<20080112071355.GA17021@soma>
Eric Wong <normalperson@yhbt.net> writes:
Show 16 quoted lines
> diff --git a/git-svn.perl b/git-svn.perl
> index 3308fe1..f40ad2c 100755
> --- a/git-svn.perl
> +++ b/git-svn.perl
> @@ -1758,10 +1758,16 @@ sub svnsync {
>  	# see if we have it in our config, first:
>  	eval {
>  		my $section = "svn-remote.$self->{repo_id}";
> -		$svnsync = {
> -		  url => tmp_config('--get', "$section.svnsync-url"),
> -		  uuid => tmp_config('--get', "$section.svnsync-uuid"),
> -		}
> +
> +	        my $url = tmp_config('--get', "$section.svnsync-url");
> +		($url) = ($url =~ m{^([a-z\+]+://\S+)$}) or
> +	           die "doesn't look right - svn:sync-from-url is '$url'\n";

When I checked tmp_config(), I thought that it was returning the first element (taking the output of "config --get" as a LF-terminated list) when called in list context, so this would give the correct sync-url after stripping the trailing LF for Dennis's case. The first assignment looks fine, but the second one looks very funny.

Is it only me who finds that
	($var) = ($var =~ m{^(any regexp)$}) or die "message"
is extremely a roundabout and hard-to-read way to say:
	if ($var !~ m{^(the same regexp)$} {
        	die "message";
	}
which is much easier to read?

I said the first one looks fine, but actually I really _hate_ Perl subs that use wantarray and return one element in scalar context, and return a list in list context.

This forces the programmer who calls the sub to read the code of the sub and know that it uses this unusual calling convention. It forbids them to rely on their common-sense acquired from experience while coding in Perl, that most functions do not do that, and a usual sub that is capable of returning a list in a list context you can find out the number of elemenets, the first element, and the first few elements by using:

	sub returns_list {
        	my @a = qw(a b c);
                return @a;
	}
	my $number_of_elems = returns_list();
	my ($first_element) = returns_list();
	my ($first, $second) = returns_list();
IOW, writing
	sub returns_funny {
        	my @a = qw(a b c);
                return wantarray ? @a : $a[0];
	}

may make you feel as if you have become a power-coder, and might even give you a false sense that some parts of your code can become simpler thanks to that, because you can now write:

	my $first_element = returns_list();
i.e. you did not have to type WHOLE TWO LETTERS ( and )!

But in the longer run, when you want/need other people to help maintaining such a code, you create unnecessary burden on them.

Previous: Eric WongNext: Eric Wong
Message 11 of 18 in “Odd number of elements in anonymous hash”
  1. Dennis SchriddeJan 8, 2008
  2. Junio C HamanoJan 8, 2008
  3. Dennis SchriddeJan 8, 2008
  4. Eric WongJan 10, 2008
  5. Dennis SchriddeJan 10, 2008
  6. Dennis SchriddeJan 10, 2008
  7. Junio C HamanoJan 10, 2008
  8. Dennis SchriddeJan 10, 2008
  9. Junio C HamanoJan 10, 2008
  10. git-svn: handle leading/trailing whitespace from svnsync revpropsEric Wong, Jan 12, 2008
  11. Junio C HamanoJan 12, 2008
  12. Eric WongJan 12, 2008
  13. Björn SteinbrinkJan 12, 2008
  14. Junio C HamanoJan 12, 2008
  15. Junio C HamanoJan 12, 2008
  16. Dennis SchriddeJan 12, 2008
  17. Eric WongJan 9, 2008
  18. Sam VilainJan 24, 2008

Read the whole thread, see it on lore, or plain text.

$ cat FOOTERMessages come from the public archive at lore.kernel.org/git, fetched every hour. The front page is chosen and written each morning by an AI editor and can be wrong; the threads themselves are the record. About and API. For agents: an MCP server at https://gitlist.dev/mcp, and any thread, story or person page as Markdown by adding .md to its URL (or sending Accept: text/markdown). Details in /llms.txt.