Avoid list assignment to %ENV in 10_rand.t

craigberry · craigberry · commit 33e2b963e2f9 · 2024-09-13T15:47:56.000-05:00
This test was failing on VMS because list assignment to %ENV is
not allowed.  So just override the slice of %ENV that the test is
concerned with.
diff --git a/t/local/10_rand.t b/t/local/10_rand.t
@@ -59,8 +59,7 @@ sub test_rand_file_name_libressl
 sub test_rand_file_name_openssl
 {
     my $file_name;
-    local %ENV = %ENV;
-    delete $ENV{RANDFILE};
+    delete local @ENV{'RANDFILE', 'HOME'};
 
     # NOTE: If there are test failures, are you using some type of
     # setuid environment? If so, this may affect usability of

Original file line number	Diff line number	Diff line change
`@@ -59,8 +59,7 @@ sub test_rand_file_name_libressl`
`59`	`59`	`sub test_rand_file_name_openssl`
`60`	`60`	`{`
`61`	`61`	`my $file_name;`
`62`		`- local %ENV = %ENV;`
`63`		`- delete $ENV{RANDFILE};`
	`62`	`+ delete local @ENV{'RANDFILE', 'HOME'};`
`64`	`63`
`65`	`64`	`# NOTE: If there are test failures, are you using some type of`
`66`	`65`	`# setuid environment? If so, this may affect usability of`