diff --git a/scripts/zfcpdbf b/scripts/zfcpdbf index bfe2ed78..36de993e 100755 --- a/scripts/zfcpdbf +++ b/scripts/zfcpdbf @@ -227,6 +227,16 @@ sub get_common # function name or hexadecimal caller address. # $line =~ s/<\s+/ ]+)[ \t]+/<\1/; @common = split(/\s+/, $line); # # Process symbolic kernel module name, if necessary. @@ -388,6 +398,17 @@ sub get_foreign_records # caller address. # $line =~ s/<\s+/ ]+)[ \t]+/<\1/; my @raw_rec = split(/\s+/,($line =~ /[|]/) ? substr($line, 0, index($line, '|')): $line);