cvs commit: xml-axkit/lib AxKit.pm

[jwalt]

jwalt       2003/01/29 05:44:57

  Modified:    lib      AxKit.pm
  Log:
  - make AxTraceIntermediate work for older perl's (mkdir difference)
  
  Revision  Changes    Path
  1.38      +4 -4      xml-axkit/lib/AxKit.pm
  
  Index: AxKit.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/AxKit.pm,v
  retrieving revision 1.37
  retrieving revision 1.38
  diff -u -r1.37 -r1.38
  --- AxKit.pm  29 Jan 2003 01:35:49 -0000      1.37
  +++ AxKit.pm  29 Jan 2003 13:44:57 -0000      1.38
  @@ -681,9 +681,9 @@
           my $ti = $AxKit::Cfg->TraceIntermediate;
           if (defined $id) {
                   $interm_prefix = 
substr($interm_prefix,-1).'/'.substr($interm_prefix,-3,2).'/'.substr($interm_prefix,0,-3).'/';
  -                mkdir($ti.'/'.substr($interm_prefix,0,1));
  -                mkdir($ti.'/'.substr($interm_prefix,0,4));
  -                mkdir($ti.'/'.$interm_prefix);
  +                mkdir($ti.'/'.substr($interm_prefix,0,1),0777);
  +                mkdir($ti.'/'.substr($interm_prefix,0,4),077);
  +                mkdir($ti.'/'.$interm_prefix,077);
           } else {
                   $interm_prefix =~ s/[^0-9a-zA-Z.,_|-]/_/g;
                   $interm_prefix .= '.';