diff scan.pl @ 264:3b3f1306255a

added _croak message to track the database locking issue
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Mon, 24 Nov 2008 17:44:43 +0800
parents b01560b95779
children aaffc50e3318
line wrap: on
line diff
--- a/scan.pl	Sat Nov 22 03:33:38 2008 +0800
+++ b/scan.pl	Mon Nov 24 17:44:43 2008 +0800
@@ -12,6 +12,7 @@
 use Carp;
 use Ikariam;
 use Data::Dumper;
+use Error;
 use Parallel::ForkManager;
 
 sub new {
@@ -24,6 +25,12 @@
     return bless $self, $class;
 }
 
+sub _croak {
+    my ($self, $message, %info) = @_;
+    Error->throw(-text => $message, %info);
+    return;
+}
+
 sub saveCities
 {
     my ($self, $island, @cities) = @_;