aboutsummaryrefslogtreecommitdiffstats
path: root/readme_generator.pl
diff options
context:
space:
mode:
Diffstat (limited to 'readme_generator.pl')
-rw-r--r--readme_generator.pl14
1 files changed, 3 insertions, 11 deletions
diff --git a/readme_generator.pl b/readme_generator.pl
index 5052afb..e93239e 100644
--- a/readme_generator.pl
+++ b/readme_generator.pl
@@ -37,19 +37,9 @@ sub wanted {
return if $file =~ m/^\./;
_err("processing file: $path");
- #read_input_file($dir, $file);
create_output_file($dir, $file);
}
-sub read_input_file {
- my ($dir, $filename) = @_;
-
- my $filepath = File::Spec->catfile($dir, $filename);
- _err("reading $filepath");
-
- create_output_file($dir, "README.md", $parser);
-}
-
sub create_output_file {
my ($dir, $in_file) = @_;
@@ -68,13 +58,15 @@ sub create_output_file {
my $mode = $overwrite ? '>' : '>>';
- _err("Writing to $mode $filepath");
+ _err("Writing to $mode $out_file_path");
open my $wfh, $mode, $out_file_path
or die "Couldn't open $out_file_path for $mode output: $!";
$parser->parse_from_file($in_file_path, $wfh);
+ print $wfh "\n\n=cut\n\n";
+
close $wfh;
}