view release on metacpan or  search on metacpan

maint/tags-to-versions.pl  view on Meta::CPAN

chomp @tags;

my %v;

foreach my $version (@tags)
{
  next if $version =~ /-rc[0-9]$/; # ignore rc
  next if $version =~ /^CVE/;
  next if $version =~ /^PRE_MUCKUP/;
  next if $version eq 'help';
  next if $version =~ /^(help|GNUMERIC_FIRST_PUBLIC_RELEASE|ChangeLog|EAZEL-NAUTILUS-MS-AUG07|FOR_GNOME_0_99_1|GNOME_0_30|GNOME_PRINT_0_24|LIBXML2_2_5_x|LIB_XML_1_X)$/;

  my @v;

  if($version =~ /^LIBXML([0-9]+)\.([0-9]+)\.([0-9]+)$/)
  {
    @v = ($1,$2,$3);
  }
  elsif($version =~ /^LIBXML2_([0-9]+)_([0-9]+)_([0-9]+)$/)
  {
    @v = ($1,$2,$3);