cvs commit: xml-axkit/lib AxKit.pm

[jwalt]

jwalt       2003/02/05 06:51:23

  Modified:    lib      Tag: AxKit-1_6_1 AxKit.pm
  Log:
  - fix AxTraceIntermediate mkdir issue (again)
  
  Revision  Changes    Path
  No                   revision
  
  
  No                   revision
  
  
  1.39.2.2  +3 -3      xml-axkit/lib/AxKit.pm
  
  Index: AxKit.pm
  ===================================================================
  RCS file: /home/cvs/xml-axkit/lib/AxKit.pm,v
  retrieving revision 1.39.2.1
  retrieving revision 1.39.2.2
  diff -u -r1.39.2.1 -r1.39.2.2
  --- AxKit.pm  2 Feb 2003 14:56:14 -0000       1.39.2.1
  +++ AxKit.pm  5 Feb 2003 14:51:22 -0000       1.39.2.2
  @@ -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 .= '.';