diff options
| author | ivan <ivan> | 2011-02-16 11:49:23 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-02-16 11:49:23 +0000 |
| commit | 46200b612044957a15c49d6cfff147ea9a862795 (patch) | |
| tree | 3688aa3906b43e4b60f6e8ec4d1564e1099a7c7c | |
| parent | d410e7d2af597373deec489beb19181a3ba301b1 (diff) | |
more debugging
| -rw-r--r-- | FS/FS/ClientAPI.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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}(@_); } |