From: Daniel Hofstetter <dhofstet@gmail.com>
Date: Mon, 16 Dec 2024 18:11:01 +0000 (+0000)
Subject: maint: tests: update deprecated perl backreference syntax
X-Git-Tag: v9.6~49
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e331dcbc815d87000d0bd0de5f28a2af2a9c99d2;p=thirdparty%2Fcoreutils.git

maint: tests: update deprecated perl backreference syntax

* tests/basenc/basenc.pl: perl warns that $1 is better than \1,
so update to the preferred form.
---

diff --git a/tests/basenc/basenc.pl b/tests/basenc/basenc.pl
index 79337f6f8e..44e22ed062 100755
--- a/tests/basenc/basenc.pl
+++ b/tests/basenc/basenc.pl
@@ -34,7 +34,7 @@ my $base64_out = "VA/c8A+vSg==";
 my $base64url_out = $base64_out;
 $base64url_out =~ y|+/|-_|;
 my $base64url_out_nl = $base64url_out;
-$base64url_out_nl =~ s/(..)/\1\n/g; # add newline every two characters
+$base64url_out_nl =~ s/(..)/$1\n/g; # add newline every two characters
 
 
 # Bug 49741:
@@ -57,7 +57,7 @@ $x = $base32_out2;
 $x =~ y|ABCDEFGHIJKLMNOPQRSTUVWXYZ234567|0123456789ABCDEFGHIJKLMNOPQRSTUV|;
 my $base32hex_out2 = $x;
 my $base32hex_out2_nl = $x;
-$base32hex_out2_nl =~ s/(...)/\1\n/g; # Add newline every 3 characters
+$base32hex_out2_nl =~ s/(...)/$1\n/g; # Add newline every 3 characters
 
 my $base16_in = "\xfd\xd8\x07\xd1\xa5";
 my $base16_out = "FDD807D1A5";
@@ -67,10 +67,10 @@ my $z85_out = 'HelloWorld';
 
 my $base2lsbf_ab = "1000011001000110";
 my $base2lsbf_ab_nl = $base2lsbf_ab;
-$base2lsbf_ab_nl =~ s/(...)/\1\n/g; # Add newline every 3 characters
+$base2lsbf_ab_nl =~ s/(...)/$1\n/g; # Add newline every 3 characters
 my $base2msbf_ab = "0110000101100010";
 my $base2msbf_ab_nl = $base2msbf_ab;
-$base2msbf_ab_nl =~ s/(...)/\1\n/g; # Add newline every 3 characters
+$base2msbf_ab_nl =~ s/(...)/$1\n/g; # Add newline every 3 characters
 
 my $try_help = "Try '$prog --help' for more information.\n";