package SQL::Translator::Producer::TTSchema;
# -------------------------------------------------------------------
-# $Id: TTSchema.pm,v 1.6 2004-10-26 00:00:41 kycl4rk Exp $
+# $Id: TTSchema.pm,v 1.7 2004-11-16 09:15:36 boconnor Exp $
# -------------------------------------------------------------------
# Copyright (C) 2002-4 SQLFairy Authors
#
use strict;
use vars qw[ $DEBUG $VERSION @EXPORT_OK ];
-$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.7 $ =~ /(\d+)\.(\d+)/;
$DEBUG = 0 unless defined $DEBUG;
use Template;
$tt->process(
$file,
- { schema => $scma , %{ $args->{'ttargs'} || {} } },
+ { schema => $scma , %{ $args || {} } },
\$out
) or die "Error processing template '$file': ".$tt->error;