[perl #22867] Popbottom ops

[via RT]

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



 Based on the documentation in core.ops, I would expect this code:

  set S15, "a\n"
  set S16, "b\n"
  pushs
  set S15, "c\n"
  set S16, "d\n"
  popbottoms
  print S15
  print S16
  end

 to print:

 a
 d

 In fact, it prints:

 d

 Similarly, this code:

  set I15, 1
  set I16, 2
  pushi
  set I15, 3
  set I16, 4
  popbottomi
  print I15
  print I16
  end

 prints:

 04

 when I would have expected:

 14


 Simon