Avoid deprecation message.
authorAbigail <abigail@abigail.be>
Tue, 17 Jan 2017 21:54:08 +0000 (22:54 +0100)
committerAbigail <abigail@abigail.be>
Tue, 17 Jan 2017 21:55:54 +0000 (22:55 +0100)
File::Glob::glob is deprecated. So, if we test it, we should avoid
the warning.

ext/File-Glob/t/basic.t

index 1e264a2..f0363cd 100644 (file)
@@ -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);