Author: bernhard
Date: Sun Jan 15 06:29:57 2006
New Revision: 11194
Modified:
trunk/examples/pir/io.pir
Log:
[perl #38239] Clean up after examples/pir/io.pir
Thanks to Bob Rogers
Modified: trunk/examples/pir/io.pir
==============================================================================
--- trunk/examples/pir/io.pir (original)
+++ trunk/examples/pir/io.pir Sun Jan 15 06:29:57 2006
@@ -1,4 +1,4 @@
-# Copyright (C) 2001-2005 The Perl Foundation. All rights reserved.
+# Copyright (C) 2001-2006 The Perl Foundation. All rights reserved.
# $Id$
=head1 NAME
@@ -35,6 +35,11 @@ You should check where the file is going
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
