Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 23 lines (20 sloc) 0.436 kB
use strict;
use File::Path qw(make_path);
use Term::ExtendedColor qw(fg);
sub _mkdir {
my $dir = shift;
if(-f $dir) {
if($dir =~ m|(.+)\..+$|) { # I know, works for me for now.
warn "$dir is a file. Will mkdir $1\n";
$dir = $1;
if(make_path($dir)) {
printf("mkdir: created directory '%s'\n", fg('red1', fg('bold', $dir)));
else {
print "mkdir: $!\n";
Jump to Line
Something went wrong with that request. Please try again.