diff scan.pl @ 265:aaffc50e3318

try to handle db_error
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Tue, 25 Nov 2008 20:15:26 +0800
parents 3b3f1306255a
children 15c288dd7dc5
line wrap: on
line diff
--- a/scan.pl	Mon Nov 24 17:44:43 2008 +0800
+++ b/scan.pl	Tue Nov 25 20:15:26 2008 +0800
@@ -25,12 +25,6 @@
     return bless $self, $class;
 }
 
-sub _croak {
-    my ($self, $message, %info) = @_;
-    Error->throw(-text => $message, %info);
-    return;
-}
-
 sub saveCities
 {
     my ($self, $island, @cities) = @_;