Leave out unnecessary '>= 0' in string output

Perl-Toolchain-Gang · Jun 26, 2024 · cebcae1 · cebcae1
1 parent df35b2c
commit cebcae1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/CPAN/Meta/Requirements/Range.pm b/lib/CPAN/Meta/Requirements/Range.pm
@@ -460,6 +460,7 @@ sub as_string {
   my @parts = @{ $self->as_struct };
 
   return $parts[0][1] if @parts == 1 and $parts[0][0] eq '>=';
+  @parts = grep { $_->[0] ne '>=' || $->[1] != 0 } @parts;
 
   return join q{, }, map {; join q{ }, @$_ } @parts;
 }