From 6a1944ad6aac242c4e381341457838741192d66e Mon Sep 17 00:00:00 2001
From: Alex Kerr <kirbyman62@gmail.com>
Date: Wed, 7 Jan 2015 16:25:32 +0000
Subject: [PATCH] Fixed useless void sort

---
 lib/OSRIC/Character.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/OSRIC/Character.pm b/lib/OSRIC/Character.pm
index ed50a70..55b2415 100644
--- a/lib/OSRIC/Character.pm
+++ b/lib/OSRIC/Character.pm
@@ -82,8 +82,8 @@ sub generate_gold
 	my $self = shift;
 
 	# Get the classes and sort by the highest starting gold (see page 28): 
-	my @classes = @{$self->{personal}->{classes}};
-	sort { $a->max_starting_gold <=> $b->max_starting_gold } @classes;
+	my @sorted = sort { $a->max_starting_gold <=> $b->max_starting_gold }
+		@{$self->{personal}->{classes}};
 
 	# Generate the starting gold:
 	$self->{wealth}->{coins} = $classes[0]->get_gold;