cvs commit: xml-axkit/lib AxKit.pm

[jwalt]

jwalt       2003/02/05 06:52:35

  Modified:    lib      AxKit.pm
  Log:
  - fix AxTraceIntermediate mkdir issue (again)
  
  Revision  Changes    Path
  1.40      +3 -3      xml-axkit/lib/AxKit.pm
  
  Index: AxKit.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/AxKit.pm,v
  retrieving revision 1.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- AxKit.pm  1 Feb 2003 19:20:53 -0000       1.39
  +++ AxKit.pm  5 Feb 2003 14:52:35 -0000       1.40
  @@ -682,8 +682,8 @@
           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),0777);
  -                mkdir($ti.'/'.substr($interm_prefix,0,4),077);
  -                mkdir($ti.'/'.$interm_prefix,077);
  +                mkdir($ti.'/'.substr($interm_prefix,0,4),0777);
  +                mkdir($ti.'/'.$interm_prefix,0777);
           } else {
                   $interm_prefix =~ s/[^0-9a-zA-Z.,_|-]/_/g;
                   $interm_prefix .= '.';