diff options
| author | Abigail <abigail@abigail.be> | 2017-01-17 22:54:08 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2017-01-17 22:55:54 +0100 |
| commit | 31587b3e6fc5a715bd8d06712b4e312147fde836 (patch) | |
| tree | 6a42a3cec5150a80009bfdb6ea9ac6c1d21d354c | |
| parent | 5ad2a0b67cdf1d90b67b991ae8708d3b9d57bad9 (diff) | |
| download | perl-31587b3e6fc5a715bd8d06712b4e312147fde836.tar.gz | |
Avoid deprecation message.
File::Glob::glob is deprecated. So, if we test it, we should avoid
the warning.
| -rw-r--r-- | ext/File-Glob/t/basic.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/File-Glob/t/basic.t b/ext/File-Glob/t/basic.t index 1e264a2eb1..f0363cdcdb 100644 --- a/ext/File-Glob/t/basic.t +++ b/ext/File-Glob/t/basic.t @@ -44,7 +44,7 @@ if (opendir(D, ".")) { @correct = grep { !/^\./ } sort readdir(D); closedir D; } -my @a = File::Glob::glob("*", 0); +my @a = do {no warnings 'deprecated'; File::Glob::glob("*", 0);}; @a = sort @a; if (GLOB_ERROR) { fail(GLOB_ERROR); |