summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2013-08-13 12:16:04 (GMT)
committerChristian Pointner <equinox@helsinki.at>2013-08-13 12:16:04 (GMT)
commitc8bf0b87ec673c759a4f4a6f34d9bf89a102cd82 (patch)
tree0435bee0b1ad59bfaac38031f83d661e49d39475
parent154bf465ebe19c492bc6ce81e3aeeb70a8afe62c (diff)
workaround for typos at radio attac
-rwxr-xr-xrhimport-ra2
1 files changed, 1 insertions, 1 deletions
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 = "";