From: Nick Bowler <nbowler@draconx.ca>
Date: Sat, 18 Nov 2023 20:54:56 +0000 (-0500)
Subject: fix-gnulib: Restore compatibility with perl 5.8.
X-Git-Url: https://git.draconx.ca/gitweb/dxcommon.git/commitdiff_plain/11dfda46d8834955846372602441bbcec6a9047f

fix-gnulib: Restore compatibility with perl 5.8.

The //= operator was added in perl 5.10.  The benefit of using it in
this script is way too slight to be worth losing compatibility.
---

diff --git a/scripts/fix-gnulib.pl b/scripts/fix-gnulib.pl
index ce27521..640f1cd 100755
--- a/scripts/fix-gnulib.pl
+++ b/scripts/fix-gnulib.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# Copyright © 2011-2014, 2020-2022 Nick Bowler
+# Copyright © 2011-2014, 2020-2023 Nick Bowler
 #
 # Prepare the Gnulib tree for inclusion into a non-recursive automake build.
 # While the output of gnulib-tool is "include"-able if the --makefile-name
@@ -169,12 +169,12 @@ EOF
 	# something actually depends on it (which is typically the case).
 	if (/^noinst_LIBRARIES.*libgnu.a/) {
 		s/^noinst/EXTRA/;
-		$for_library //= 0;
+		$for_library = 0 unless defined $for_library;
 		$use_libtool = 0;
 	}
 	if (/^noinst_LTLIBRARIES.*libgnu.la/) {
 		s/^noinst/EXTRA/;
-		$for_library //= 1;
+		$for_library = 1 unless defined $for_library;
 		$use_libtool = 1;
 	}