From 5a182e5971d9abda1e133e652f73ced397f1a207 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 10 Aug 2004 22:53:08 +0000
Subject: [PATCH] better debug

---
 docs/upgrades/upgrade_5.9.9-6.0.0.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/docs/upgrades/upgrade_5.9.9-6.0.0.pl b/docs/upgrades/upgrade_5.9.9-6.0.0.pl
index e755f83eb..a29328cf0 100644
--- a/docs/upgrades/upgrade_5.9.9-6.0.0.pl
+++ b/docs/upgrades/upgrade_5.9.9-6.0.0.pl
@@ -842,7 +842,7 @@ $replace{'t'} = {
 my ($sth, $data, $code, $table, $column, %identifier);
 foreach $table (keys %dbFields){
 	$sth = WebGUI::SQL->read("SELECT * FROM $table ");
-	die "Cannot read from table $table " if ($!);
+	die "Cannot read from table $table ".$! if ($!);
 	while ($data = $sth->hashRef){
 		foreach $column (@{$dbFields{$table}{fields}}){
 			$code = $data->{$column};