--- trunk/Estraier.pm 2006/05/10 13:45:08 139 +++ trunk/Estraier.pm 2006/05/10 14:57:50 142 @@ -4,7 +4,7 @@ use strict; use warnings; -our $VERSION = '0.06_1'; +our $VERSION = '0.06'; =head1 NAME @@ -951,10 +951,7 @@ }; if ($self->{create}) { - eval { - $self->name; - }; - if ($@) { + if (! eval { $self->name } || $@) { my $name = $1 if ($self->{url} =~ m#/node/([^/]+)/*#); croak "can't find node name in '$self->{url}'" unless ($name); my $label = $self->{label} || $name;