added perl socket blocking where available

[spider.git] / perl / DXLog.pm

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index 785483533c562f50dfc438e30ecfebfda9cf024b..07038433d440a3161dc6aa4c597ceefd9ea60c41 100644 (file)
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -206,7 +206,7 @@ sub Log
 
 sub LogDbg
 {
-       DXDebug::dbg($_[$#_]);
+       DXDebug::dbg($_) for @_;
        Log(@_);
 }