[PATCH] t/pmc/os.t 'mkdir' test can fail

. . . depending on where Parrot is located. Mine is in
/usr/src/parrot, so the code expected /usr/xpto/parrot/src instead of
/usr/src/parrot/xpto . . .

-- 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