diff options
-rw-r--r-- | t/op/tie_fetch_count.t | 4 |
1 files changed, 3 insertions, 1 deletions
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') { |