From 1bf2ad57fdc64aa78685af6ebc568af1a41bfeb3 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Thu, 7 Jul 2011 10:27:49 +0200 Subject: db-ris: Improve delayed / on-time info filter --- bin/db-ris | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/bin/db-ris b/bin/db-ris index 99e07b0..234a912 100755 --- a/bin/db-ris +++ b/bin/db-ris @@ -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; } -- cgit v1.2.3