diff options
| author | ivan <ivan> | 2011-02-16 11:49:22 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-02-16 11:49:22 +0000 |
| commit | 335407bd15c5d337da64eda12f6a4e8206172d50 (patch) | |
| tree | 1b6033e551d95c94e00f0792489d18697b2c1f3d | |
| parent | 12d7aa6074b038d29f6a8ceae6090d25645a53fc (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}(@_); } |