Help for this page

Select Code to Download


  1. or download this
    27 :        } elsif(-d "$ARGV[0]") {
28 :             die;
29 : print "Copying path to $Single_User_Directory - ";
30 :              mkpath([$ARGV[0], $Single_User_Directory], 1, 0711);
  2. or download this
    27 :        } elsif(-d "$ARGV[0]") {
28 :            print "Copying path to $Single_User_Directory - " || d
+ie;
29 :            mkpath([$ARGV[0], $Single_User_Directory], 1, 0711);
  3. or download this
    mkpath([$ARGV[0], $Single_User_Directory], 1, 0711) or die;
  4. or download this
    mkpath([$ARGV[0], $Single_User_Directory], 1, 0711) or die "Unable to 
+mkpath!!! perl reports $! ---;