properly get schema/translator

[dbsrgits/SQL-Translator-2.0-ish.git] / lib / SQL / Translator / Producer / XML.pm

diff --git a/lib/SQL/Translator/Producer/XML.pm b/lib/SQL/Translator/Producer/XML.pm
index 9339993..494a51c 100644 (file)
--- a/lib/SQL/Translator/Producer/XML.pm
+++ b/lib/SQL/Translator/Producer/XML.pm
@@ -20,7 +20,7 @@ my $PArgs     = {};
 my $no_comments;
 
 method produce {
-    my $translator  = $self;
+    my $translator  = $self->translator;
     my $schema      = $translator->schema;
     $no_comments    = $translator->no_comments;
 #    $PArgs          = $translator->producer_args;