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

[Bob Rogers]

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