--- nfo/perl/libs/Data/Transfer/Task.pm	2002/10/10 03:44:21	1.1
+++ nfo/perl/libs/Data/Transfer/Task.pm	2002/10/17 00:10:43	1.2
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: Task.pm,v 1.1 2002/10/10 03:44:21 cvsjoko Exp $
+#  $Id: Task.pm,v 1.2 2002/10/17 00:10:43 joko Exp $
 #
 #  $Log: Task.pm,v $
+#  Revision 1.2  2002/10/17 00:10:43  joko
+#  + bugfix: constructor argument logging
+#
 #  Revision 1.1  2002/10/10 03:44:21  cvsjoko
 #  + new
 #
@@ -24,7 +27,7 @@
   my $invocant = shift;
   my $class = ref($invocant) || $invocant;
   my $self = { @_ };
-  $logger->debug( __PACKAGE__ . "->new(" . @_ . ")" );
+  $logger->debug( __PACKAGE__ . "->new( @_ )" );
   return bless $self, $class;
 }