Next

Program Repair Shop

47

CreateOutputDir

        sub CreateOutputDir {
            my $dir = shift;
            print "Creating DIR: ",$dir,"\n";
            if (mkdir $dir, 0777) {
                print "Success! \n";
            } else {
                print "Fail! : $! \n";
            }
        }

        sub CreateOutputDir {
            my $dir = shift;
            print "Creating DIR: $dir\n";  
            if (mkdir $dir, 0777) {
                print "Success! \n";
            } else {
                print "Fail! : $! \n";
            }
        }

Next

Copyright © 2002 M. J. Dominus