From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Thu, 24 Feb 2011 00:51:49 +0000 (-0600)
Subject: tear out useless unreserve hash
X-Git-Tag: v0.11008~13
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b69cddc9ece3fbc51a26060e6b772d4f43078ea;p=dbsrgits%2FSQL-Translator.git

tear out useless unreserve hash
---

diff --git a/lib/SQL/Translator/Producer/SQLServer.pm b/lib/SQL/Translator/Producer/SQLServer.pm
index 8affe1a..0618fc1 100644
--- a/lib/SQL/Translator/Producer/SQLServer.pm
+++ b/lib/SQL/Translator/Producer/SQLServer.pm
@@ -108,7 +108,6 @@ my @no_size = qw/tinyint smallint int integer bigint text bit image datetime/;
 
 my $max_id_length    = 128;
 my %global_names;
-my %unreserve;
 
 =pod
 
@@ -128,7 +127,6 @@ sub produce {
     my $schema         = $translator->schema;
 
     %global_names = (); #reset
-    %unreserve = ();
 
     my $output;
     $output .= header_comment."\n" unless ($no_comments);
@@ -418,13 +416,6 @@ sub unreserve {
     # also trap fields that don't begin with a letter
     return $name if !$reserved{ uc $name } && $name =~ /^[a-z]/i; 
 
-    if ( $schema_obj_name ) {
-        ++$unreserve{"$schema_obj_name.$name"};
-    }
-    else {
-        ++$unreserve{"$name (table name)"};
-    }
-
     my $unreserve = sprintf '%s_', $name;
     return $unreserve.$suffix;
 }