The following error was seen on a Debian 6.0 virtual machine using perl
5.10.1:
Bareword found where operator expected at \
./tests/join/join.pl line 327, near "tr/_/-/r"
syntax error at ./tests/join/join.pl line 327, near "tr/_/-/r"
Execution of ./tests/join/join.pl aborted due to compilation errors.
FAIL tests/join/join.pl (exit status: 255)
* tests/join/join.pl: Don't use the /r modifier which was not introduced
until perl 5.13.7.
---
tests/join/join.pl | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/tests/join/join.pl b/tests/join/join.pl
index aef53279c..55ee9a325 100755
--- a/tests/join/join.pl
+++ b/tests/join/join.pl
@@ -324,7 +324,7 @@ my @tv = (
my @fields = qw(1.1 1.2 1.3 2.1 2.2 2.3);
push @tv,
map {my ($name, $sep, $quote) = @$_;
- ['o-sep-' . ($name =~ tr/_/-/r),
+ ['o-sep-' . do { my $s = $name; $s =~ tr/_/-/; $s },
'-o ' . ($quote ? "'@{[join $sep, @fields]}'" : join $sep, @fields),
["1 a x\n2 b y\n3 c z\n", "1 d u\n2 e v\n3 f w\n"],
"1 a x 1 d u\n2 b y 2 e v\n3 c z 3 f w\n"]}
--
2.55.0
