Applying patch submitted by David Romano in http://rt.perl.org/rt3//Ticket/Display.html?id=44753 (find current revision for git).
Applying patch submitted by David Romano in
http://rt.perl.org/rt3//Ticket/Display.html?id=44753 (find current revision
for git).


git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@20720 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot