[perl #39757] [BUG] sprintf left-justification doesn't work

[via RT]

# New Ticket Created by  Matt Diephouse 
# Please include the string:  [perl #39757]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39757 >


   mini:~/Projects/parrot mdiep$ cat test.pir
   .sub main :main
     $P0 = new .ResizablePMCArray
     $P1 = new .Integer
     $P1 = 10
     $P0[0] = $P1
     $P1 = new .String
     $P1 = "foo"
     $P0[1] = $P1
     $P1 = new .String
     $P1 = "bar"
     $P0[2] = $P1
     $S0 = sprintf "%-*s - %s\n", $P0
     print $S0
     end
   .end

   mini:~/Projects/parrot mdiep$ parrot test.pir
   foo - bar
   mini:~/Projects/parrot mdiep$

That should output "foo        - bar" instead.

Tcl may be blocking on this soon, so takers wanted. :-)

--
Matt Diephouse