From c8bf0b87ec673c759a4f4a6f34d9bf89a102cd82 Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@helsinki.at>
Date: Tue, 13 Aug 2013 12:16:04 +0000
Subject: workaround for typos at radio attac


diff --git a/rhimport-ra b/rhimport-ra
index ef3026a..69f3310 100755
--- a/rhimport-ra
+++ b/rhimport-ra
@@ -90,7 +90,7 @@ print " -> $RSS_URL\n";
 my $feed = XML::Feed->parse(URI->new($RSS_URL))
   or die "Error fetching feed: " . XML::Feed->errstr;
 
-my $bdexp = sprintf("^(\\d+)\\..*\\s*0?%d\\s*\\.\\s*0?%d\\s*\\.\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]);
+my $bdexp = sprintf("^(\\d+)\\..*\\s*0?%d\\s*[.,]\\s*0?%d\\s*[.,]\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]);
 
 
 my $file = "";
-- 
cgit v0.10.2