PATCH: [perl #108378] [perl #115800]