view release on metacpan or  search on metacpan

scripts/Gin.pm  view on Meta::CPAN

  return &_divider_to_string($length, \@dividers);
}

        
    

# We write into a temporary file which we move into place. This
# is so that any readers always see a consistent file - albeit
# possibly slightly out of date.
sub update_meta {
  my ($self, $data) = @_;

  return 0 if(!$self->{META_FILE});

  my $meta = $self->{META_FILE};

  my $tmp_meta = "$meta.tmp";
  $tmp_meta =~ s/\/([^\/]+)$/.$1/;

  if(!open(META, ">", $tmp_meta)) {