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 fc71e665451af09b353146ae29df0a27aa235547..28817dbd284b5e71fec04f973db7d494cf2070c8 100755 (executable)
--- 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");