Changeset c83befc


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • memlog_analyze

    rd270799 rc83befc  
    22use strict; 
    33use File::Basename; 
     4use File::Path qw(make_path); 
    45use Getopt::Long; 
    56 
     
    3637} 
    3738 
    38 if (scalar(@ARGV) > 1) { 
     39if (scalar(@ARGV) > 2) { 
    3940  print_usage(2); 
    4041} 
     
    4243my $memlog_fn = $ARGV[0]; 
    4344my $out_dir = $ARGV[1] || '.'; 
     45 
     46make_path($out_dir); 
    4447 
    4548if (! -f $memlog_fn) { 
Note: See TracChangeset for help on using the changeset viewer.