Changeset 16928 for gsdl/trunk/perllib/doc.pm

Timestamp:

2008-08-21T11:07:09+12:00 (16 years ago)

Author:

ak19

Message:

Corrected an error that I introduced in the previous commit.

File:

• gsdl/trunk/perllib/doc.pm (modified) (1 diff)

gsdl/trunk/perllib/doc.pm

@@ -941 +941 @@
 
     # get the actual filename as it exists on the filesystem which this url refers to
-    $source_file = &unicode::url_to_filename($sourcefile); 
+    $source_file = &unicode::url_to_filename($source_file); 
     my ($assocfilename) = $source_file =~ /([^\\\/]+)$/;
     return $assocfilename;