From: Andreas Schneider <asn@samba.org>
Date: Tue, 26 Nov 2019 07:21:27 +0000 (+0100)
Subject: s3:script: Try to fix a Perl warning
X-Git-Tag: ldb-2.1.0~219
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=dd694bdc643ad294475ddf2dd42b537ffeb7e8dc;p=thirdparty%2Fsamba.git

s3:script: Try to fix a Perl warning

Scalar value @ENV{"BASH_ENV"} better written as $ENV{"BASH_ENV"} at
/tmp/samba-testbase/b23/samba-ad-dc-1/source3/script/tests/printing/modprinter.pl
line 134.

Signed-off-by: Andreas Schneider <asn@samba.org>
Reviewed-by: Jeremy Allison <jra@samba.org>
---

diff --git a/source3/script/tests/printing/modprinter.pl b/source3/script/tests/printing/modprinter.pl
index fc71e665451..28817dbd284 100755
--- a/source3/script/tests/printing/modprinter.pl
+++ b/source3/script/tests/printing/modprinter.pl
@@ -131,7 +131,7 @@ if ($opt_delete && ($found_section == 0)) {
 	die "share $share_name not found";
 }
 
-delete @ENV{'BASH_ENV'};
+delete @ENV{"BASH_ENV"};
 
 $ENV{'PATH'} = '/bin:/usr/bin'; # untaint PATH
 system("cp", "$tmp", "$smb_conf_file");