-- Bob Rogers
http://rgrjr.dyndns.org/
------------------------------------------------------------------------
index: t/pmc/os.t
===================================================================
--- t/pmc/os.t (revision 10854)
+++ t/pmc/os.t (working copy)
@@ -86,7 +86,7 @@
# Test mkdir
my $xpto = $upcwd;
-$xpto =~ s/src/xpto/;
+$xpto =~ s/src$/xpto/;
pir_output_is(<<'CODE', <<"OUT", "Test mkdir");
.sub main :main