PATCH: [perl #131598]