From d03ce4f5412fd49bf3d119e68c5e987e3221dacf Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 26 Mar 2012 20:33:34 -0700
Subject: =?UTF-8?q?[perl=20#111656]=20tie=5Ffetch=5Fcount.t:=20Suppress=20?=
 =?UTF-8?q?=E2=80=98glob=20failed=E2=80=99?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This test doesn’t care what glob actually does in this case, but
merely how many times it calls magic.  So suppress any warnings, in
order for tests to pass on VMS.
---
 t/op/tie_fetch_count.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t
index d721f42bdf..8eae578042 100644
--- a/t/op/tie_fetch_count.t
+++ b/t/op/tie_fetch_count.t
@@ -127,7 +127,9 @@ $var    = "tied";
 $var   .= <DATA>        ; check_count '$tiedstr .= <rcatline>';
 $var    = *foo;
 $var   .= <DATA>        ; check_count '$tiedglob .= <rcatline>';
-$dummy  = <${var}>      ; check_count '<glob>';
+{   no warnings "glob";
+    $dummy  = <${var}>      ; check_count '<glob>';
+}
 
 # File operators
 for (split //, 'rwxoRWXOezsfdpSbctugkTBMAC') {
-- 
cgit v1.2.1