92       }

    92       }

    93     }

    93     }

    94   }

    94   }

    95   $path = join('\\', @collapsedPath);

    95   $path = join('\\', @collapsedPath);

    96 

    96 

    97   return $path;

   102   return $path;

    98 }

   103 }

    99 

   104 

   100 sub MakePath ($) {

   105 sub MakePath ($) {

   101   my $dir = shift;

   106   my $dir = shift;

   122     }

   127     }

   123     else {

   128     else {

   124       mkpath($dir) or die "Couldn't make path \"$dir\": $!\n";

   129       mkpath($dir) or die "Couldn't make path \"$dir\": $!\n";

   125     }

   130     }

   126   }

   131   }

   128     # If it starts with \epoc32, chop the leading backslash and stick on $EPOCROOT

   133     # If it starts with \epoc32, chop the leading backslash and stick on $EPOCROOT

   130   }

   135   }

   131 }

   136 }

   132 

   137 

   133 sub CopyFile {

   138 sub CopyFile {

   134   my $from = TidyPath(shift);

   139   my $from = TidyPath(shift);