diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-03-26 20:33:34 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-03-26 21:19:14 -0700 |
| commit | d03ce4f5412fd49bf3d119e68c5e987e3221dacf (patch) | |
| tree | 791fb04e04fa2d7616cfd8e5aa5b6e43f9efcadc | |
| parent | 5ead438ea8691c581967c8f3b3cf7aadda35afab (diff) | |
| download | perl-d03ce4f5412fd49bf3d119e68c5e987e3221dacf.tar.gz | |
[perl #111656] tie_fetch_count.t: Suppress ‘glob failed’
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.
| -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') { |