This is an automated email from the git hooks/post-receive script.

guillem pushed a commit to branch main
in repository dpkg.

View the commit online:
https://git.dpkg.org/cgit/dpkg/dpkg.git/commit/?id=f65ff9d569b5af571e405106cc5cf1bc776ee7fd

commit f65ff9d569b5af571e405106cc5cf1bc776ee7fd
Author: Guillem Jover <[email protected]>
AuthorDate: Tue Sep 2 04:54:04 2025 +0200

    dselect: Fix Perl syntax in methods scripts (unbalanced quoting)
    
    Switch the multi-line strings into a HERE document.
    
    Changelog: internal
---
 dselect/methods/file/install.sh  | 6 +++---
 dselect/methods/media/install.sh | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/dselect/methods/file/install.sh b/dselect/methods/file/install.sh
index fa230956a..0633ae454 100755
--- a/dselect/methods/file/install.sh
+++ b/dselect/methods/file/install.sh
@@ -77,7 +77,7 @@ while true; do
                        }
                }
                if (!length($invoke)) {
-                       warn "
+                       warn <<"WARN";
 
 Cannot find the appropriate file(s) anywhere needed to install or upgrade
 package $package. Expecting version $version or later, as listed in the
@@ -87,9 +87,9 @@ Perhaps the package was downloaded with an unexpected name? 
In any case,
 you must find the file(s) and then either place it with the correct
 filename(s) (as listed in the Packages file or in $vardir/available)
 and rerun the installation, or upgrade the package by using
-\"dpkg --install --auto-deconfigure" by hand.
+"dpkg --install --auto-deconfigure" by hand.
 
-";
+WARN
                        exit(1);
                }
                print "$print\n";
diff --git a/dselect/methods/media/install.sh b/dselect/methods/media/install.sh
index 794b6ea3f..5965625b4 100755
--- a/dselect/methods/media/install.sh
+++ b/dselect/methods/media/install.sh
@@ -130,7 +130,7 @@ Please change the discs and press <RETURN>.
                        }
                }
                if (!length($invoke)) {
-                       warn "
+                       warn <<"WARN";
 
 Cannot find the appropriate file(s) anywhere needed to install or upgrade
 package $package. Expecting version $version or later, as listed in the
@@ -140,9 +140,9 @@ Perhaps the package was downloaded with an unexpected name? 
In any case,
 you must find the file(s) and then either place it with the correct
 filename(s) (as listed in the Packages file or in $vardir/available)
 and rerun the installation, or upgrade the package by using
-\"dpkg --install --auto-deconfigure" by hand.
+"dpkg --install --auto-deconfigure" by hand.
 
-";
+WARN
                        exit(1);
                }
                print "$print\n";

-- 
Dpkg.Org's dpkg

Reply via email to