diff options
Diffstat (limited to 'rhimport-wr')
-rwxr-xr-x | rhimport-wr | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rhimport-wr b/rhimport-wr index 2fd1089..0742586 100755 --- a/rhimport-wr +++ b/rhimport-wr @@ -105,7 +105,8 @@ print "day of latest original broadcast before next Radio Helsinki broadcast: " if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) { print "File won't be available by now!\n"; - exit 42; + $dbh->disconnect(); + exit 0; } my $id = sprintf("%04d-%02d-%02d", @import_date); |