diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-03-07 21:55:36 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-03-07 21:55:36 +0000 |
| commit | d3d1232e4b14141281f4266718249fa2750cd14e (patch) | |
| tree | 602ff745324e4f64ecade6a63bcbe50aae95c063 /t/op/write.t | |
| parent | b93d0e6249447a8bdcbd59208d8e8138756bae7c (diff) | |
| download | perl-d3d1232e4b14141281f4266718249fa2750cd14e.tar.gz | |
Refactor 4 tests to use skip_if_miniperl().
Diffstat (limited to 't/op/write.t')
| -rw-r--r-- | t/op/write.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/t/op/write.t b/t/op/write.t index b5c2210309..b19db71004 100644 --- a/t/op/write.t +++ b/t/op/write.t @@ -610,10 +610,8 @@ close STDOUT_DUP; *CmT = *{$::{Comment}}{FORMAT}; ok defined *{$::{CmT}}{FORMAT}, "glob assign"; -if ($ENV{PERL_CORE_MINITEST}) { - ok 1, "Skip test for miniperl, as it does not support scalario"; -} -else { +SKIP: { + skip_if_miniperl('miniperl does not support scalario'); my $buf = ""; open my $fh, ">", \$buf; my $old_fh = select $fh; |