diff options
-rwxr-xr-x | bin/db-ris | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -87,9 +87,7 @@ sub display_result { sub filter_info { my ($info) = @_; - if ( $info =~ m{ ^ (?: p.nktlich | k [.] A [.] ) $ }ox ) { - return q{}; - } + $info =~ s{ (?: ^ | , ) (?: p.nktlich | k [.] A [.] ) }{}x; return $info; } |