diff options
| author | Peter Eisentraut <peter_e@gmx.net> | 2015-08-25 09:58:49 -0400 |
|---|---|---|
| committer | Peter Eisentraut <peter_e@gmx.net> | 2015-08-27 22:48:38 -0400 |
| commit | c86762a242b81395d5f72b106adfe371cd33c67e (patch) | |
| tree | 45186816892fedc4c6b992116705b919a9acefce /src | |
| parent | 119cf760d01c2a41d68ff489ad3c3b7eddc974f0 (diff) | |
| download | postgresql-c86762a242b81395d5f72b106adfe371cd33c67e.tar.gz postgresql-c86762a242b81395d5f72b106adfe371cd33c67e.zip | |
Simplify Perl chmod calls
The Perl chmod function already takes multiple file arguments, so we
don't need a separate looping function.
Diffstat (limited to 'src')
| -rw-r--r-- | src/test/ssl/ServerSetup.pm | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/src/test/ssl/ServerSetup.pm b/src/test/ssl/ServerSetup.pm index 8c1b5175755..a8228b04c0f 100644 --- a/src/test/ssl/ServerSetup.pm +++ b/src/test/ssl/ServerSetup.pm @@ -43,20 +43,6 @@ sub copy_files } } -# Perform chmod on a set of files, taking into account wildcards -sub chmod_files -{ - my $mode = shift; - my $file_expr = shift; - - my @all_files = glob $file_expr; - foreach my $file_entry (@all_files) - { - chmod $mode, $file_entry - or die "Could not run chmod with mode $mode on $file_entry"; - } -} - sub configure_test_server_for_ssl { my $tempdir = $_[0]; @@ -82,7 +68,7 @@ sub configure_test_server_for_ssl # Copy all server certificates and keys, and client root cert, to the data dir copy_files("ssl/server-*.crt", "$tempdir/pgdata"); copy_files("ssl/server-*.key", "$tempdir/pgdata"); - chmod_files(0600, "$tempdir/pgdata/server-*.key"); + chmod(0600, glob "$tempdir/pgdata/server-*.key") or die $!; copy_files("ssl/root+client_ca.crt", "$tempdir/pgdata"); copy_files("ssl/root+client.crl", "$tempdir/pgdata"); |