toychain/t/mkdir.t

#!/usr/bin/perl -w

use Cwd;
my $pwd = Cwd::cwd();
&mkdirp($pwd.'/a/b/c');

die unless -d 'a/b/c';
system 'rm -rf a/';
exit $?;

sub mkdirp { # TBD : implemend a mkdir -p
  my @fp = ();
  for my $p (split('/',$_[0])) {
    push @fp,$p;
    my $fp = join'/',@fp;
    printf "fp: %s\n",$fp;
    mkdir $fp unless -d $fp;
  }
  return $?;
}