/[Search-Estraier]/trunk/Estraier.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/Estraier.pm

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

revision 139 by dpavlin, Wed May 10 13:45:08 2006 UTC revision 149 by dpavlin, Mon May 15 22:11:22 2006 UTC
# Line 4  use 5.008; Line 4  use 5.008;
4  use strict;  use strict;
5  use warnings;  use warnings;
6    
7  our $VERSION = '0.06_1';  our $VERSION = '0.07_1';
8    
9  =head1 NAME  =head1 NAME
10    
# Line 951  sub new { Line 951  sub new {
951          };          };
952    
953          if ($self->{create}) {          if ($self->{create}) {
954                  eval {                  if (! eval { $self->name } || $@) {
                         $self->name;  
                 };  
                 if ($@) {  
955                          my $name = $1 if ($self->{url} =~ m#/node/([^/]+)/*#);                          my $name = $1 if ($self->{url} =~ m#/node/([^/]+)/*#);
956                          croak "can't find node name in '$self->{url}'" unless ($name);                          croak "can't find node name in '$self->{url}'" unless ($name);
957                          my $label = $self->{label} || $name;                          my $label = $self->{label} || $name;
# Line 1831  sub master { Line 1828  sub master {
1828          ) or confess "shuttle_url failed";          ) or confess "shuttle_url failed";
1829    
1830          if ($status == $rest->{status}) {          if ($status == $rest->{status}) {
1831    
1832                    # refresh node info after sync
1833                    $self->_set_info if ($action eq 'sync');
1834    
1835                  if ($rest->{returns} && wantarray) {                  if ($rest->{returns} && wantarray) {
1836    
1837                          my @results;                          my @results;
Legend:
Removed from v.139  
changed lines
  Added in v.149
  ViewVC Help
Powered by ViewVC 1.1.26