about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-01-18 19:40:07 +0000
committerEric Wong <e@80x24.org>2019-01-18 19:41:44 +0000
commit743ac758eb34f18c7e2544cbc48299662074b1ef (patch)
tree5cf35c64dbd384c325f6030c1f1eac0d64e5a43f
parentd66aa534a4a7506cfc5cfab49d1e09f8db8be3dd (diff)
downloadpublic-inbox-743ac758eb34f18c7e2544cbc48299662074b1ef.tar.gz
Older versions of Perl (tested 5.14.2 on Debian wheezy(*),
reported by Konstantin on Perl 5.16.3) considered the result of
concatenating two string literals to be a constant value.

(*) not that other stuff works on wheezy, but t/git.t should.

Reported-by: Konstantin Ryabitsev <konstantin@linuxfoundation.org>
-rw-r--r--t/git.t5
1 files changed, 3 insertions, 2 deletions
diff --git a/t/git.t b/t/git.t
index 50ec4fbf..052e1cec 100644
--- a/t/git.t
+++ b/t/git.t
@@ -145,7 +145,8 @@ if ('alternates reloaded') {
 }
 
 use_ok 'PublicInbox::Git', qw(git_unquote);
-is("foo\nbar", git_unquote('"foo\\nbar"'.''), 'unquoted newline');
-is("Eléanor", git_unquote('"El\\303\\251anor"'.''), 'unquoted octal');
+my $s;
+is("foo\nbar", git_unquote($s = '"foo\\nbar"'), 'unquoted newline');
+is("Eléanor", git_unquote($s = '"El\\303\\251anor"'), 'unquoted octal');
 
 done_testing();