]>
git.refcnt.org Git - colorize.git/blob - readme.pl
7 my $readme_cgit = 'README.cgit';
9 die "$0: $readme does not exist\n" unless -e
$readme;
11 open(my $fh, '<', $readme) or die "Cannot open $readme for reading: $!\n";
12 my $text = do { local $/; <$fh> };
22 print "Writing $readme_cgit\n";
24 open($fh, '>', $readme_cgit) or die "Cannot open $readme_cgit for writing: $!\n";