Changeset c83befc for memlog_analyze

Timestamp:

06/01/15 07:11:16 (9 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

192a260

Parents:

d270799

git-author:

Hal Finkel <hfinkel@…> (06/01/15 07:11:16)

git-committer:

Hal Finkel <hfinkel@…> (06/01/15 07:11:16)

Message:

make the output dir if it does not exist

File:

• memlog_analyze (modified) (3 diffs)

memlog_analyze

@@ -2 +2 @@
 use strict;
 use File::Basename;
+use File::Path qw(make_path);
 use Getopt::Long;
 
@@ -36 +37 @@
 }
 
-if (scalar(@ARGV) > 1) {
+if (scalar(@ARGV) > 2) {
   print_usage(2);
 }
@@ -42 +43 @@
 my $memlog_fn = $ARGV[0];
 my $out_dir = $ARGV[1] || '.';
+
+make_path($out_dir);
 
 if (! -f $memlog_fn) {