diff options
| author | fukachan <fukachan> | 2001-06-09 14:26:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-06-09 14:26:03 +0000 |
| commit | d88bb12fac981cc0cd5edbe507820ddf3e31c605 (patch) | |
| tree | 1df4a8f5cb08f9a5e00baaf817715aa97807bcc9 /fml/lib/SQL | |
| parent | 04f7689dbd4ba28887d14c933973788cde9768d2 (diff) | |
| download | fml8-d88bb12fac981cc0cd5edbe507820ddf3e31c605.tar.gz fml8-d88bb12fac981cc0cd5edbe507820ddf3e31c605.tar.bz2 fml8-d88bb12fac981cc0cd5edbe507820ddf3e31c605.zip | |
show debug when envvar debug is defined
Diffstat (limited to 'fml/lib/SQL')
| -rw-r--r-- | fml/lib/SQL/Schema/toymodel.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/fml/lib/SQL/Schema/toymodel.pm b/fml/lib/SQL/Schema/toymodel.pm index 0c15e750..c4faf041 100644 --- a/fml/lib/SQL/Schema/toymodel.pm +++ b/fml/lib/SQL/Schema/toymodel.pm @@ -41,6 +41,8 @@ sub build_sql_query my $address = $args->{ address }; my $table = $self->{ _table }; + print STDERR "build_sql_query( query=$query )\n" if $ENV{'debug'}; + if ($query eq 'add') { "insert into $table values ('$ml_name', '$file', '$address', 0, 0)"; } |