From 16f1c5b0c31868b3fa089b7f642f297414b4d6d2 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Fri, 29 Dec 2006 17:52:14 +0000
Subject: [PATCH] more fatal warnings and other cleanup

---
 resources.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/resources.pl b/resources.pl
index 363d25e..9599304 100644
--- a/resources.pl
+++ b/resources.pl
@@ -19,7 +19,6 @@
 
 use strict;
 use warnings FATAL => 'all';
-no warnings qw(uninitialized);
 use POSIX;
 our $BODY;
 our $DBH;
@@ -31,7 +30,7 @@ $ND::TEMPLATE->param(TITLE => 'Alliance Resources');
 die "You don't have access" unless isHC();
 
 my $order = "respplanet DESC";
-if (param('order') =~ /^(score|resources|respplanet|nscore|nscore2|nscore3)$/){
+if (defined param('order') && param('order') =~ /^(size|score|resources|respplanet|nscore|nscore2|nscore3)$/){
 	$order = "$1 DESC";
 }
 
-- 
2.39.2