24 lines
1.0 KiB
Perl
24 lines
1.0 KiB
Perl
--- lib/SQL/Translator/Producer/XML/SQLFairy.pm.orig Sun May 9 15:11:42 2004
|
|
+++ lib/SQL/Translator/Producer/XML/SQLFairy.pm Sun May 9 15:13:45 2004
|
|
@@ -224,9 +224,9 @@
|
|
# Use array to ensure consistant (ie not hash) ordering of attribs
|
|
# The order comes from the meths list passes in.
|
|
my @attr = map {
|
|
- my $val = $obj->$_;
|
|
+ my $val = $obj->$_();
|
|
($_ => ref($val) eq 'ARRAY' ? join(', ', @$val) : $val);
|
|
- } grep { defined $obj->$_ } @meths;
|
|
+ } grep { defined $obj->$_() } @meths;
|
|
$empty_tag ? $xml->emptyTag( [ $Namespace => $tag ], @attr )
|
|
: $xml->startTag( [ $Namespace => $tag ], @attr );
|
|
}
|
|
@@ -247,7 +247,7 @@
|
|
my $emit_empty = $PArgs->{'emit_empty_tags'};
|
|
|
|
for my $method ( @methods ) {
|
|
- my $val = $obj->$method;
|
|
+ my $val = $obj->$method();
|
|
debug " ".ref($obj)."->$method=",
|
|
(defined $val ? "'$val'" : "<UNDEF>");
|
|
next unless $emit_empty || defined $val;
|