diary

Mikal's Perl doesn't look much like line noise, so I thought I'd set it straight. I've also renamed rmkdir to pmkdir, so it looks less like rmdir

sub pmkdir($)
{
        my $x;
        $x .= "$_/", -d $x or mkdir $x for grep {$_ ne ''} split '/', shift;
}

Update: do -d checking in the correct place.