[WWcvs] webwork-modperl: Fixed some documentation comments.

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
Fixed some documentation comments.

Modified Files:
--------------
    webwork-modperl/lib/WeBWorK:
        Utils.pm

Revision Data
-------------
Index: Utils.pm
===================================================================
RCS file: /webwork/cvs/system/webwork-modperl/lib/WeBWorK/Utils.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -Llib/WeBWorK/Utils.pm -Llib/WeBWorK/Utils.pm -u -r1.68 -r1.69
--- lib/WeBWorK/Utils.pm
+++ lib/WeBWorK/Utils.pm
@@ -231,11 +231,11 @@
 # A very useful macro for making sure that all of the directories to a file have
 # been constructed.
 sub surePathToFile($$) {
-	# constructs intermediate 
+	# constructs intermediate directories enroute to the file 
 	# the input path must be the path relative to this starting directory
 	my $start_directory = shift;
 	my $path = shift;
-	my $delim = "/"; #&getDirDelim();
+	my $delim = "/"; 
 	unless ($start_directory and $path ) {
 		warn "missing directory<br> surePathToFile  start_directory   path ";
 		return '';
@@ -246,7 +246,6 @@
 	
 	# if the path starts with $start_directory (which is permitted but optional) remove this initial segment
 	$path =~ s|^$start_directory|| if $path =~ m|^$start_directory|;
-	#$path = convertPath($path);
 
 	
 	# find the nodes on the given path
@@ -255,7 +254,7 @@
 	# create new path
 	$path = $start_directory; #convertPath("$tmpDirectory");
 	
-	while (@nodes>1) {
+	while (@nodes>1) {  # the last node is the file name
 		$path = $path . shift (@nodes) . "/"; #convertPath($path . shift (@nodes) . "/");
 		#FIXME  this make directory command may not be fool proof.
 		unless (-e $path) {