From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Mon, 27 Sep 2010 21:12:51 +0000 (-0700)
Subject: use $pdata instead of $tdata for procedure info
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3569998fe116f0abbe90b6dfe38a41e80ac7e23;p=dbsrgits%2FSQL-Translator-2.0-ish.git

use $pdata instead of $tdata for procedure info
---

diff --git a/lib/SQL/Translator/Parser/DDL/YAML.pm b/lib/SQL/Translator/Parser/DDL/YAML.pm
index 1d9d448..9b9da8a 100644
--- a/lib/SQL/Translator/Parser/DDL/YAML.pm
+++ b/lib/SQL/Translator/Parser/DDL/YAML.pm
@@ -105,8 +105,8 @@ role SQL::Translator::Parser::DDL::YAML {
             map   { [ $data->{'procedures'}{ $_ }{'order'}, $_ ] }
             keys %{ $data->{'procedures'} };
     
-        for my $tdata ( @procedures ) {
-             my $procedure = Procedure->new($tdata);
+        for my $pdata ( @procedures ) {
+             my $procedure = Procedure->new($pdata);
              $schema->add_procedure($procedure);
         }