/[Sack]/trunk/lib/Sack/View.pm
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/lib/Sack/View.pm

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

revision 142 by dpavlin, Wed Oct 7 20:44:07 2009 UTC revision 161 by dpavlin, Fri Oct 30 14:52:34 2009 UTC
# Line 72  sub new { Line 72  sub new {
72                  } elsif ( my $sh = delete $data->{sh} ) {                  } elsif ( my $sh = delete $data->{sh} ) {
73                          $result = { sh => scalar `$sh` };                          $result = { sh => scalar `$sh` };
74                  } elsif ( defined $data->{debug} ) {                  } elsif ( defined $data->{debug} ) {
75                          $self->{debug} = $data->{debug};                          $result = { debug => $self->{debug} = $data->{debug} };
76                  } else {                  } else {
77                          warn "[$port] UNKNOWN ", dump( $data ), $/;                          warn "[$port] UNKNOWN ", dump( $data ), $/;
78                          $result = { 'error' => $data };                          $result = { 'error' => 'unknown', data => $data };
79                  }                  }
80    
81                    $result = { 'error' => 'result not reference', result => $result, data => $data } unless ref($result);
82    
83                  warn "# [$port] >>>>\n";                  warn "# [$port] >>>>\n";
84                  Storable::store_fd( $result => $client );                  Storable::store_fd( $result => $client );
85          }          }
Legend:
Removed from v.142  
changed lines
  Added in v.161
  ViewVC Help
Powered by ViewVC 1.1.26