/[Search-Estraier]/trunk/lib/Search/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/lib/Search/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 142 by dpavlin, Wed May 10 14:57:50 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.06';
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;
Legend:
Removed from v.139  
changed lines
  Added in v.142
  ViewVC Help
Powered by ViewVC 1.1.26