diff options
| author | Craig A. Berry <craigberry@mac.com> | 2011-01-30 16:47:32 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2011-01-30 16:47:32 -0600 |
| commit | 723bc1540d3050528949352bc2596164e6366788 (patch) | |
| tree | 07b57157a8650d031e625906acc8c0540f485d60 /lib/File/DosGlob.t | |
| parent | 8b030b386ab114eb62dffa7aa90c6f857fb0c4a3 (diff) | |
| download | perl-723bc1540d3050528949352bc2596164e6366788.tar.gz | |
Skip the right number of tests in DosGlob.t.
Three times three is nine, last I checked. Follow-up to:
dd2d1456ae6cdb1b6f476dd4923e18c36a45b6ea
Diffstat (limited to 'lib/File/DosGlob.t')
| -rw-r--r-- | lib/File/DosGlob.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/DosGlob.t b/lib/File/DosGlob.t index f94227218e..9227cb9871 100644 --- a/lib/File/DosGlob.t +++ b/lib/File/DosGlob.t @@ -101,7 +101,7 @@ is("@r", "@s", 'global override'); # NB. The spaces in the glob patterns need to be backslash escaped. my $filename_containing_parens = "foo (123) bar"; SKIP: { - skip("can't create '$filename_containing_parens': $!", 12) + skip("can't create '$filename_containing_parens': $!", 9) unless open my $touch, ">", $filename_containing_parens; close $touch; |