Changeset 42

Show
Ignore:
Timestamp:
07/31/09 15:13:22 (5 years ago)
Author:
depesz
Message:

Add workaround for API change in File::Path

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/tools/pg_bloat_report.pl

    r41 r42  
    77use Data::Dumper; 
    88use File::Basename; 
    9 use File::Path qw( make_path )
     9use File::Path
    1010use File::Temp qw( tempdir ); 
    1111use POSIX qw( strftime ); 
     
    2424 
    2525exit; 
     26 
     27sub make_path { 
     28 
     29    $File::Path::VERSION =~ m{\A(\d+)} or die "File::Path::VERSION doesn't start with digits? : $File::Path::VERSION\n"; 
     30    my $ver = $1; 
     31    return $ver < 2 ? File::Path::mkpath( @_ ) : File::Path::make_path( @_); 
     32} 
    2633 
    2734sub send_report_by_mail {