From d88bb12fac981cc0cd5edbe507820ddf3e31c605 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 9 Jun 2001 14:26:03 +0000
Subject: show debug when envvar debug is defined

---
 fml/lib/SQL/Schema/toymodel.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'fml/lib/SQL')

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)";
     }
-- 
cgit v1.2.1