[Date Prev][Date Next][Thread Prev][Thread Next][Minivend by date
][Minivend by thread
]
[PATCH] MiniVend debug mode (was Re: bin/ifdef bug)
Here it is the patch against 3.14. See my related announce too.
Bye
Racke
diff -u -r1.1.1.1 Interpolate.pm
--- lib/Vend/Interpolate.pm 1999/06/09 12:11:55 1.1.1.1
+++ lib/Vend/Interpolate.pm 1999/08/02 10:24:07
@@ -947,7 +947,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;
@@ -959,7 +959,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 -r1.1.1.1 Server.pm
--- lib/Vend/Server.pm 1999/06/09 12:11:55 1.1.1.1
+++ lib/Vend/Server.pm 1999/08/02 10:24:18
@@ -689,9 +689,9 @@
setup_signals();
- my $port;
+ my ($host, $port);
if($Global::Inet_Mode) {
- my $host = $Global::TcpHost || '127.0.0.1';
+ $host = $Global::TcpHost || '127.0.0.1';
my @hosts;
$Global::TcpHost =~ s/\./\\./g;
$Global::TcpHost =~ s/\*/\\S+/g;
--
LinuXia - Solutions of Cool Competence - Internetprogramming and more
D-30163 Hannover, Waldstraße 4, 0511-3941290 (http://www.linuxia.de/)
Wir realisieren Onlineshops mit Minivend (http://www.minivend.com)
und MiniMate (http://www.linuxia.de/minimate/).
