If the file does exist the g-cpan script does: my $cat_write = IO::File->new($cat_file, '>>'); if (defined $cat_write) { print $cat_write "$GCPAN_CAT\n"; undef $cat_write; autoflush STDOUT 1; } If it doesn't, it does: my $cat_write = IO::File->new($cat_file, '>'); if (defined $cat_write) { print $cat_write $GCPAN_CAT; } It should write it with a newline and it should also "undef $cat_write" to close the file consistently with what's done in the other context. Reproducible: Always
This makes sense. Added to git master, keeping the bug open until release.
(In reply to Andreas K. Hüttel from comment #1) > This makes sense. Added to git master, keeping the bug open until release. Fix included in 0.16.6