Changed some comments

diff --git a/devedit.pl b/devedit.pl
index eb032925b97e916e5245db968302505c89aadd75..22dc403d008f26887119aab66275b39df29c32c9 100644 (file)
--- a/devedit.pl
+++ b/devedit.pl
@@ -110,8 +110,8 @@ if(-e clean_path($config->{'fileroot'}.'/'.$file))
   $uselist->lock or abort($config->{'errors'}->{'lock_failed'},undef,{USELIST => $uselist->{'listfile'}, LOCK_FILE => $uselist->{'lockfile'}});
   $uselist->load;
 
   $uselist->lock or abort($config->{'errors'}->{'lock_failed'},undef,{USELIST => $uselist->{'listfile'}, LOCK_FILE => $uselist->{'lockfile'}});
   $uselist->load;
 

-  # Create a hash with data submitted by user
-  # (some other necessary information will also be included)
+  # Create a hash containing data submitted by the user
+  # (some other necessary information are also included)

 
   my %data = (physical     => $physical,
               virtual      => $virtual,
 
   my %data = (physical     => $physical,
               virtual      => $virtual,

diff --git a/modules/Command.pm b/modules/Command.pm
index 4cea462504b7482fbf539576a6f3d0d9239f079c..8ffc7657a7d06c3ca44887281a2578feacde7201 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -374,7 +374,7 @@ sub exec_endedit($$)
 
  if(file_save($physical,\$content))
  {
 
  if(file_save($physical,\$content))
  {

-  # Saving of the file was successful!
+  # The file was successfully saved!

 
   return devedit_reload({command => 'show', file => $dir});
  }
 
   return devedit_reload({command => 'show', file => $dir});
  }


@@ -464,7 +464,7 @@ sub exec_mkdir($$)
 
 # exec_upload()
 #
 
 # exec_upload()
 #

-# Upload a file
+# Process a file upload

 #
 # Params: 1. Reference to user input hash
 #         2. Reference to config hash
 #
 # Params: 1. Reference to user input hash
 #         2. Reference to config hash


@@ -921,7 +921,8 @@ sub exec_about($$)
 
  $tpl->fillin('PID',$$);
 
 
  $tpl->fillin('PID',$$);
 

- # Check if the functions getpwuid() and getgrgid() are available
+ # The following information is only available on systems supporting
+ # users and groups

 
  if($users)
  {
 
  if($users)
  {

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 1f72b754670b9ba005eb8519733b67d5cab8e9cb..2347445b267fc84df46a578c5d101aace39e7eca 100644 (file)
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -272,7 +272,8 @@ sub mode_string($)
 
 # upper_path()
 #
 
 # upper_path()
 #

-# Cut away the last part of a path
+# Remove the last part of a path
+# (the resulting path contains a trailing slash)

 #
 # Params: Path
 #
 #
 # Params: Path
 #