X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=7fe085855580aa53a478126802822797cf65a063;hb=b88f2c41d644a13f58e593d23bdf8525632a45f1;hp=2b9b6719ebbf6c79fef5f7370e0da270166a2a43;hpb=efc5762598689b6ee22dfc8ad29f4e8a22457c0a;p=perl%2Fmodules%2FSub-Nary.git diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm index 2b9b671..7fe0858 100644 --- a/lib/Sub/Nary.pm +++ b/lib/Sub/Nary.pm @@ -230,7 +230,6 @@ sub enter { my $r = add $self->inspect($op->first); shift @{$self->{cv}}; - $r = { $r => 1 } unless ref $r; $self->{cache}->{$tag} = { %$r }; return undef, $r; } @@ -605,7 +604,7 @@ You can contact me by mail or on #perl @ FreeNode (vincent or Prof_Vince). =head1 BUGS -Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. +Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT