From f8ae81b53b3edb30da430d26b1f161683f31c6f2 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Mon, 28 May 2007 14:49:59 +0000
Subject: [PATCH] bugfix

---
 PA.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PA.pm b/PA.pm
index 5781ee7..f085535 100644
--- a/PA.pm
+++ b/PA.pm
@@ -33,6 +33,7 @@ our @EXPORT = qw/checkPlanet checkGal shipEff shipStop parseValue prettyValue ca
 sub checkPlanet {
 	my ($msg) = @_;
 
+	DB();
 	my ($x,$y,$z,$nick);
 	if ($msg =~ /(\d+)\D+(\d+)\D+(\d+)/){
 		$x = $1;
@@ -43,7 +44,6 @@ sub checkPlanet {
 	}else{
 		$ND::server->command("notice $ND::target usage .p X:Y:Z".(officer() ? ' or .p nick' : ''));
 	}
-	DB();
 	my $f = $ND::DBH->prepare(q{SELECT coords(x,y,z),ruler,planet,race,score,size,value,scorerank,sizerank,
 		valuerank, xp, xprank, alliance, relationship, nick, planet_status, hit_us, channel
 		FROM current_planet_stats WHERE (x = $1 AND y = $2 and z = $3) OR nick ILIKE $4 LIMIT 1
-- 
2.39.2