Author: coke Date: Tue Dec 30 16:32:52 2008 New Revision: 34680 Modified: trunk/examples/tutorial/40_file_ops.pir trunk/t/examples/tutorial.t Log: Instead of cleaning up quietly after the tutorial, encourage new developers to DTRT. Modified: trunk/examples/tutorial/40_file_ops.pir ============================================================================== --- trunk/examples/tutorial/40_file_ops.pir (original) +++ trunk/examples/tutorial/40_file_ops.pir Tue Dec 30 16:32:52 2008 @@ -7,15 +7,18 @@ .sub main :main .local pmc fileout, filein - fileout = open "40_file_ops_data.txt", 'w' + fileout = open '40_file_ops_data.txt', 'w' print fileout, "The quick brown fox jumps over the lazy dog.\n" close fileout - filein = open "40_file_ops_data.txt", 'r' + filein = open '40_file_ops_data.txt', 'r' $S0 = readline filein say $S0 close filein + # Be nice and remove the temporary file we created. + $P1 = new 'OS' + $P1.'rm'('40_file_ops_data.txt') .end # Local Variables: Modified: trunk/t/examples/tutorial.t ============================================================================== --- trunk/t/examples/tutorial.t (original) +++ trunk/t/examples/tutorial.t Tue Dec 30 16:32:52 2008 @@ -249,15 +249,6 @@ } } - - -# cleanup -{ - - # The example '40_file_ops.pir' leave a temporary file. - unlink '40_file_ops_data.txt'; -} - # Local Variables: # mode: cperl # cperl-indent-level: 4