Changeset e0cd9598453c239e061a84a0634a5fdcff8a4b6b in xas


Ignore:
Timestamp:
11/10/14 15:19:28 (6 years ago)
Author:
Kevin L. Esteb <kevin@…>
Branches:
master
Children:
493dfbe9da731403804599ae7bad95a2bca07fa2
Parents:
7a7d828981a38552138f8e008bbb0c829c7a42b8
git-author:
Kevin L. Esteb <kevin@…> (11/10/14 15:19:28)
git-committer:
Kevin L. Esteb <kevin@…> (11/10/14 15:19:28)
Message:

fixed a few logic issues.

Location:
trunk
Files:
2 edited

Legend:

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

    r03b0c311fbd4242bc4d527b8d4efd888ab885865 re0cd9598453c239e061a84a0634a5fdcff8a4b6b  
    1212  version   => $VERSION, 
    1313  base      => 'XAS::Lib::Net::POE::Client', 
     14  mixins    => 'XAS::Lib::Mixins::Keepalive', 
    1415  accessors => 'stomp', 
    1516  vars => { 
     
    9798    if ($self->tcp_keepalive) { 
    9899 
    99         $self->log->debug("$alias: tcp_keepalive enabled"); 
     100        $self->log->info("$alias: tcp_keepalive enabled"); 
    100101 
    101102        $self->init_keepalive(); 
  • trunk/templates/Build.PL

    r88e1fdf3718d2a0343df06392234ee953aef9b03 re0cd9598453c239e061a84a0634a5fdcff8a4b6b  
    7878 
    7979            $to = catfile('blib', $to); 
    80             $self->make_executable($from); 
    81             $result = $self->copy_if_modified(from => $from, to => $to); 
     80            $result = $self->copy_if_modified(from => $from, to => $to) or next; 
     81            $self->fix_shebang_line($result) unless $self->is_vmsish; 
     82            $self->make_executable($result); 
    8283 
    8384        } 
     
    120121 
    121122            $to = catfile('blib', $to); 
    122             $self->make_executable($from); 
    123123            $result = $self->copy_if_modified(from => $from, to => $to); 
    124124 
     
    181181 
    182182        my $sub = sub { 
    183             return 1 if (($File::Find::dir !~ /SVN/i or 
    184                           $File::Find::dir !~ /GIT/i ) and  
    185                           -f $File::Find::name); 
     183            return ((($File::Find::name !~ /SVN/i)  and 
     184                     ($File::Find::name !~ /GIT/i)) and 
     185                    ( -f $File::Find::name)); 
    186186        }; 
    187187 
     
    190190    } 
    191191 
     192    sub _files_in { 
     193        my ($self, $dir) = @_; 
     194        return unless -d $dir; 
     195 
     196        local *DH; 
     197        opendir DH, $dir or die "Can't read directory $dir: $!"; 
     198 
     199        my @files; 
     200        while (defined (my $file = readdir DH)) { 
     201           my $full_path = File::Spec->catfile($dir, $file); 
     202           next if -d $full_path; 
     203           next if (($file =~ /SVN/i) or ($file =~ /GIT/i)); 
     204           push @files, $full_path; 
     205       } 
     206       return @files; 
     207    } 
    192208EOC 
    193209 
Note: See TracChangeset for help on using the changeset viewer.