書き忘れていたことがありましたので補足します。

もし、sub fightなどで「($php,$ptm) = &hprecover($php,$pxp,$psp,$pav,$ptm,$pfg);」の下にmprecoverを追加する場合は追加するのではなく以下のように変更する必要があります。
($php) = &hprecover($php, $pxp, $psp, $pav, $ptm, $pfg); # $ptmの戻り値を代入しない
($pmp, $ptm) = &mprecover($pmp, $pxm, $psp, $pav, $ptm, $pfg);
もしくは、
my $tmpptm = $ptm;
($php, $ptm) = &hprecover($php, $pxp, $psp, $pav, $tmpptm, $pfg);
($pmp, $ptm) = &mprecover($pmp, $pxm, $psp, $pav, $tmpptm, $pfg); # $ptmの戻り値は代入してもしなくてもどちらでも良い

▼関連発言
│
└◆1331:ＮＰＣ遭遇で殺害しているのにアイテムが盗まれる [cosmos] 11/18 17:11
　└◆1332:追記ですが・・ [cosmos] 11/18 17:14
　　└◆1333:Re:追記ですが・・ [moon] 11/18 19:02
　　　└◆1335:Re[2]:追記ですが・・ [cosmos] 11/18 21:20
　　　　└◆1336:Re[3]:追記ですが・・ [moon] 11/18 22:31
　　　　　└◆1339:Re[4]:追記ですが・・ [cosmos] 11/19 00:13
　　　　　　└◆1340:Re[5]:追記ですが・・ [moon] 11/19 00:47
　　　　　　　└◆1341:Re[6]:追記ですが・・ [moon] 11/19 10:21
　　　　　　　　└◆1344:Re[7]:追記ですが・・ [cosmos] 11/19 19:22
　　　　　　　　　└◆1350:Re[8]:追記ですが・・ [moon] 11/20 00:25
　　　　　　　　　　└◆1351:Re[9]:追記ですが・・ [cosmos] 11/20 01:02
　　　　　　　　　　　└◆1352:Re[10]:追記ですが・・ [moon] 11/20 07:54
　　　　　　　　　　　　└◆1353:Re[11]:追記ですが・・ [cosmos] 11/20 08:08
　　　　　　　　　　　　　└◆1355:Re[12]:追記ですが・・ [cosmos] 11/20 17:28
　　　　　　　　　　　　　　└◆1357:Re[13]:追記ですが・・ [moon] 11/20 20:52<-last