# New Ticket Created by Bob Rogers
# Please include the string: [perl #38239]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=38239 >
examples/pir/io.pir leaves the "tmp_example_io.tmp" in the cwd, even
when run as the first t/examples/pir.t test. Rather than fixing it
there, this seemed like a great opportunity to add a small OS example.
-- Bob Rogers
http://rgrjr.dyndns.org/
Index: examples/pir/io.pir
===================================================================
--- examples/pir/io.pir (revision 11187)
+++ examples/pir/io.pir (working copy)
@@ -35,6 +35,10 @@
P0 = open test_fn, "<"
S0 = read P0, 1024
print S0
+
+ ## now clean up after ourselves.
+ P1 = new "OS"
+ P1."rm"(test_fn)
.end
=head1 SEE ALSO
