@@ -0,0 +1,11 @@
+--- FlowScan.pm.orig 2010-01-09 15:36:51.000000000 +0100
++++ FlowScan.pm 2010-01-09 15:37:16.000000000 +0100
+@@ -93,7 +93,7 @@
+ sub file2time_t {
+ my $file = shift;
+ if ($file =~
+- m/(\d\d\d\d)(\d\d)(\d\d)_(\d\d):(\d\d):(\d\d)([+-])(\d\d)(\d\d)/) {
++ m/(\d\d\d\d)-(\d\d)-(\d\d)\.(\d\d)(\d\d)(\d\d)([+-])(\d\d)(\d\d)/) {
+ # The file name contains an "hours east of GMT" component
+ my(@tm) = ($6, $5, $4, $3, $2-1, $1-1900, 0, 0, -1);
+ my($tm_sec, $tm_min, $tm_hour, $tm_mday, $tm_mon, $tm_year,
|