put back some command debugging

to do with cached/uncached commands

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index a27d8d3060b842cd1618c4bbc67c583fc041d2bc..be9d652f12aa6c4a06b8eb6eb0d2edde5d0de79d 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -795,7 +795,7 @@ sub find_cmd_name {
                #we have compiled this subroutine already,
                #it has not been updated on disk, nothing left to do
                #print STDERR "already compiled $package->handler\n";
-               ;
+               dbg("find_cmd_name: $package cached") if isdbg('command');
        } else {
 
                my $sub = readfilestr($filename);

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index c2843ed579b22e580fc978bd81325b7ea144912b..b16d69e4c055b38406c7a52c30972acea6f2900f 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -33,7 +33,7 @@ sub print
        my $to = shift || 10;
        my $jdate = $fcb->unixtoj(shift);
        my $pattern = shift;
-       my $who = uc shift;
+       my $who = shift;
        my $search;
        my @in;
        my @out = ();
@@ -41,6 +41,8 @@ sub print
        my $tot = $from + $to;
        my $hint = "";
            
+       $who = uc $who if defined $who;
+       
        if ($pattern) {
                $hint = "m{\\Q$pattern\\E}i";
        } else {

diff --git a/perl/Version.pm b/perl/Version.pm
index 8142a148761bbf5fad6b3dd62499061ea459caf8..1fe16bbc9472fdaca0040ff1c4309053265f1623 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.56';
 $subversion = '0';
-$build = '16';
-$gitversion = 'fb8e4bc';
+$build = '17';
+$gitversion = '281b5d6';
 
 1;