diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2009-05-25 23:47:34 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2009-05-26 08:14:16 +0200 |
| commit | 7dda6b54f0ff2d46d0452bb49c22a547b9639004 (patch) | |
| tree | be027379612bb0be560df2a3191ea929149ca749 /lib/Pod | |
| parent | 8b8da387fd8ec1d8e2aa4657201cde2f30c29ed9 (diff) | |
| download | perl-7dda6b54f0ff2d46d0452bb49c22a547b9639004.tar.gz | |
patch@2009-05-25.21:50:08 text-options.t file cleanup on VMS
This patch fixes lib/Pod/text-options.t to not leave tmp.pod and out.tmp
files behind on VMS.
-John
wb8tyw@qsl.net
Personal Opinion Only
Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/t/text-options.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/t/text-options.t b/lib/Pod/t/text-options.t index e2146c26f4..8a115d83a5 100644 --- a/lib/Pod/t/text-options.t +++ b/lib/Pod/t/text-options.t @@ -69,7 +69,7 @@ while (<DATA>) { $output = <TMP>; } close TMP; - unlink ('tmp.pod', 'out.tmp'); + 1 while unlink ('tmp.pod', 'out.tmp'); my $expected = ''; while (<DATA>) { last if $_ eq "###\n"; |