Re: output of test script

You might be able to narrow this further, but testing for the existence of the errant file prior to each step. Try the equivalent of:

  use File::Path;
    foreach my $n ( 0 .. 12 ) {
      print "/blah/10 exists prior to step $n\n"
        if -e "/blah/10";
      mkpath("/blah/$n", 1, 0755) or die "$n: $!";
  }
[download]

Comment on Re: output of test script Download Code

Replies are listed 'Best First'.
Re: Re: output of test script by markguy (Scribe) on Apr 27, 2001 at 02:22 UTC
tried that... nothing there before the mkdir call :(	[reply]
Re: Re: Re: output of test script by dws (Chancellor) on Apr 27, 2001 at 02:49 UTC
nothing there before the mkdir call :( We know the file is there before the mkpath/mkdir call for creating file "10". If that -e test doesn't find it right before that call mkpath(), that narrows the amount of code you'll have to inspect. Or, now might be a good time to learn the Perl debugger.	[reply]