Changeset 25ca773a7bed52abaa65a1759ae36c4673684f38 in xas


Ignore:
Timestamp:
11/14/14 15:36:32 (6 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
a04c3b855f4ac4809a3dce3bc57149866918f8b9
Parents:
80524e9e81a412ca74c34a84be3d28b8a923fb3b
git-author:
Kevin L. Esteb <kevin@…> (11/14/14 15:36:32)
git-committer:
Kevin L. Esteb <kevin@…> (11/14/14 15:36:32)
Message:

removed some debug code

Location:
trunk/lib/XAS/Lib/Stomp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/XAS/Lib/Stomp/POE/Filter.pm

    r80524e9e81a412ca74c34a84be3d28b8a923fb3b r25ca773a7bed52abaa65a1759ae36c4673684f38  
    2121; 
    2222 
    23 use Data::Hexdumper; 
     23#use Data::Hexdumper; 
    2424 
    2525# --------------------------------------------------------------------- 
     
    7171    foreach my $frame (@$frames) { 
    7272 
    73         my $buffer = $frame->as_string . $self->eol(); 
     73        my $buffer = $frame->as_string; 
    7474 
    75         $self->log->debug(hexdump($buffer)); 
     75#        $self->log->debug(hexdump($buffer)); 
    7676        push(@ret, $buffer); 
    7777 
  • trunk/lib/XAS/Lib/Stomp/Parser.pm

    r80524e9e81a412ca74c34a84be3d28b8a923fb3b r25ca773a7bed52abaa65a1759ae36c4673684f38  
    2727 
    2828#use Data::Dumper; 
    29 use Data::Hexdumper; 
     29#use Data::Hexdumper; 
    3030 
    3131# ---------------------------------------------------------------------- 
     
    4646 
    4747    $self->log->debug('stomp parse'); 
    48     $self->log->debug(hexdump($self->{buffer})); 
     48#    $self->log->debug(hexdump($self->{buffer})); 
    4949 
    5050    # A valid frame is usually this: 
     
    8484 
    8585                $self->log->debug('command'); 
    86                 $self->log->debug(hexdump($line)); 
     86#                $self->log->debug(hexdump($line)); 
    8787 
    8888                $line = trim($line); 
     
    120120 
    121121                $line = $self->buf_slurp(\$self->{buffer}, $clength); 
    122                 $self->log->debug(hexdump($line)); 
     122#                $self->log->debug(hexdump($line)); 
    123123 
    124124                while ($line =~ s/^$HEADER//) { 
Note: See TracChangeset for help on using the changeset viewer.