diff options
| -rw-r--r-- | readme_generator.pl | 14 |
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; } |