From 335407bd15c5d337da64eda12f6a4e8206172d50 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 16 Feb 2011 11:49:22 +0000 Subject: [PATCH] more debugging --- FS/FS/ClientAPI.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/FS/FS/ClientAPI.pm b/FS/FS/ClientAPI.pm index 488b079f2..1fea28c67 100644 --- a/FS/FS/ClientAPI.pm +++ b/FS/FS/ClientAPI.pm @@ -35,7 +35,7 @@ sub dispatch { my ( $self, $name ) = ( shift, shift ); $name =~ s(/)(::)g; my $sub = "FS::ClientAPI::$name"; - warn "$me dispatch: calling $sub\n" if $DEBUG; + warn "$me dispatch: calling $sub with args @_\n" if $DEBUG; no strict 'refs'; &{$sub}(@_); } -- 2.11.0