--- a/tools/fsh-builddocs	Thu Jul 29 12:05:54 2010 +1000
+++ b/tools/fsh-builddocs	Thu Jul 29 12:58:05 2010 +1000
@@ -1,12 +1,12 @@
 #!perl
 # fsh-builddocs
-# 
+#
 # Copyright (c) 2010 Accenture. All rights reserved.
 # This component and the accompanying materials are made available
 # under the terms of the "Eclipse Public License v1.0"
 # which accompanies this distribution, and is available
 # at the URL "http://www.eclipse.org/legal/epl-v10.html".
-# 
+#
 # Initial Contributors:
 # Accenture - Initial contribution
 
@@ -83,6 +83,15 @@
 	     'i|include=s' => $options{includes}) or DisplayHelp();
   DisplayHelp() if ($help);
   warn "Invalid arguments\n" and DisplayHelp() unless (@ARGV == 1);
+
+  my $relativeEpocRootPath = fshu::RelativePath($ENV{EPOCROOT}, cwd());
+  $relativeEpocRootPath =~ s/\\/\//g; # '\' -> '/'.
+  foreach my $include (@{$options{includes}}) {
+    if ($include =~ /^epoc32/i) {
+      $include = "${relativeEpocRootPath}$include";
+    }
+  }
+
   return shift @ARGV;
 }
 
@@ -104,7 +113,7 @@
   my $spec;
 
   my $currentDir;
-  my $currentFile;
+  my $currentFile = $podListFileName;
   my $currentLine = 0;
   while (my $line = <CPP>) {
     ++$currentLine;