X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FAtom.pm;h=5cd01e3b3aa3f376a17f244079a1d3b8274ee46f;hp=e285b0ce32a28b8220f4a4a36739e9bcbe1461c9;hb=5bb7f214348c0e45363adc5cf51d479a240a7c49;hpb=93eb049958520c8b4980d76e5654e5cdd3774d2f

diff --git a/lib/CPANPLUS/Dist/Gentoo/Atom.pm b/lib/CPANPLUS/Dist/Gentoo/Atom.pm
index e285b0c..5cd01e3 100644
--- a/lib/CPANPLUS/Dist/Gentoo/Atom.pm
+++ b/lib/CPANPLUS/Dist/Gentoo/Atom.pm
@@ -215,6 +215,8 @@ sub and {
  shift unless length ref $_[0];
 
  my $a1 = shift;
+ return $a1 unless @_;
+
  my $a2 = shift;
  $a2 = $a2->and(@_) if @_;