From: Charles McGarvey Date: Sat, 21 Dec 2019 15:46:11 +0000 (-0700) Subject: fix harmless warning when parsing homebank files X-Git-Tag: v0.007~2 X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fhomebank2ledger;a=commitdiff_plain;h=809727a3740f74a8836fa49dbf24bd672c58d39e;hp=cb28bf5557c8d5259a5075a80f5e75c042767836 fix harmless warning when parsing homebank files --- diff --git a/lib/File/HomeBank.pm b/lib/File/HomeBank.pm index 0034ac8..7d29ada 100644 --- a/lib/File/HomeBank.pm +++ b/lib/File/HomeBank.pm @@ -582,8 +582,8 @@ sub parse_string { push @categories, \%attr; } elsif ($node eq 'ope') { # transaction - $attr{paymode} = $TRANSACTION_PAYMODES{$attr{paymode} || ''} || 'unknown'; - $attr{status} = $TRANSACTION_STATUSES{delete $attr{st}} || 'unknown'; + $attr{paymode} = $TRANSACTION_PAYMODES{$attr{paymode} || ''} || 'unknown'; + $attr{status} = $TRANSACTION_STATUSES{delete $attr{st} || ''} || 'unknown'; $attr{transfer_key} = delete $attr{kxfer} if $attr{kxfer}; $attr{split_amount} = delete $attr{samt} if $attr{samt};