/[Sack]/trunk/bin/sack.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/sack.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 16 by dpavlin, Tue Sep 22 13:32:04 2009 UTC revision 17 by dpavlin, Tue Sep 22 13:40:02 2009 UTC
# Line 71  our $cache; Line 71  our $cache;
71  our $connected;  our $connected;
72    
73  sub send_nodes {  sub send_nodes {
74          my $content = pop @_ if $#_ > 0;        # no content with just one argument!          my $content = $#_ > 0 ? pop @_ : '';    # no content with just one argument!
75          my $header = length($content);          my $header = length($content);
76          $header .= ' ' . join(' ', @_) if @_;          $header .= ' ' . join(' ', @_) if @_;
77    
Legend:
Removed from v.16  
changed lines
  Added in v.17
  ViewVC Help
Powered by ViewVC 1.1.26