Parent Directory | Revision Log | Patch
revision 139 by dpavlin, Wed May 10 13:45:08 2006 UTC | revision 140 by dpavlin, Wed May 10 14:08:34 2006 UTC | |
---|---|---|
# | 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; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |