[PATCH]: Debugging MiniVend

[Stefan Hornburg <racke@linuxia.de>]

******    message to minivend-users from Stefan Hornburg <racke@linuxia.de>     ******

MiniVend complains about working in debugging mode, here is 
the patch against beta9:

diff -u --recursive --new-file minivend-3.12beta9-orig/lib/Vend/Glimpse.pm minivend-3.12beta9/lib/Vend/Glimpse.pm
--- minivend-3.12beta9-orig/lib/Vend/Glimpse.pm	Wed Mar  3 08:09:47 1999
+++ minivend-3.12beta9/lib/Vend/Glimpse.pm	Fri Mar  5 11:10:16 1999
@@ -258,7 +258,7 @@
     push @cmd, "'$spec'";
 # DEBUG
 #Vend::Util::logDebug
-#::logError	("spec: '$spec'");
+#("spec: '$spec'")
 #	if ::debug(0x10);
 # END DEBUG
 
@@ -283,7 +283,7 @@
 
 # DEBUG
 #Vend::Util::logDebug
-#::logError("Glimpse command line: $cmd\n");
+#("Glimpse command line: $cmd\n")
 #	if ::debug(0x10);
 # END DEBUG
 
diff -u --recursive --new-file minivend-3.12beta9-orig/lib/Vend/Interpolate.pm minivend-3.12beta9/lib/Vend/Interpolate.pm
--- minivend-3.12beta9-orig/lib/Vend/Interpolate.pm	Wed Mar  3 08:09:57 1999
+++ minivend-3.12beta9/lib/Vend/Interpolate.pm	Fri Mar  5 11:10:16 1999
@@ -975,7 +975,7 @@
 		$op = database_field($d,$k,$f);
 # DEBUG
 #Vend::Util::logDebug
-#("tag_if db=$d fld=$f key=$k data=$data\n")
+#("tag_if db=$d fld=$f key=$k\n")
 #	if ::debug(0x1);
 # END DEBUG
 		$op = 'q{' . $op . '}' unless defined $noop;
@@ -987,7 +987,7 @@
 		$op = product_field($f,$k);
 # DEBUG
 #Vend::Util::logDebug
-#("tag_if field fld=$f key=$k data=$data\n")
+#("tag_if field fld=$f key=$k\n")
 #	if ::debug(0x1);
 # END DEBUG
 		$op = 'q{' . $op . '}' unless defined $noop;
diff -u --recursive --new-file minivend-3.12beta9-orig/lib/Vend/Table/DBI.pm minivend-3.12beta9/lib/Vend/Table/DBI.pm
--- minivend-3.12beta9-orig/lib/Vend/Table/DBI.pm	Wed Mar  3 08:11:10 1999
+++ minivend-3.12beta9/lib/Vend/Table/DBI.pm	Fri Mar  5 11:10:16 1999
@@ -290,7 +290,6 @@
 #("called numeric with @_: status=")
 #	if ::debug(0x4);
 #	my $status = exists $_[0]->[$CONFIG]->{NUMERIC}->{$_[1]};
-# DEBUG
 #Vend::Util::logDebug
 #("$status\n")
 #	if ::debug(0x4);

-- 
LinuXia - Solutions of Cool Competence - Internetprogramming and more
D-30163 Hannover, Waldstra&#223;e 4, 0511-393656 (http://www.linuxia.de/ dawns)
Come to the land of real computing where penguins and their friends
spreading the word of Open Source which crushes windows instantly.
-
To unsubscribe from the list, DO NOT REPLY to this message.  Instead, send
email with 'UNSUBSCRIBE minivend-users' in the body to Majordomo@minivend.com.
Archive of past messages: http://www.minivend.com/minivend/minivend-list