--- lsparse.pl	Sat Jun 12 01:19:33 1999
+++ lsparse.pl-patched	Sat Jun 12 01:11:49 1999
@@ -261,7 +261,9 @@
  }
 
  # UNIX style - check file modes
- s/^(.)([-r][-w].[-r][-w].[-r][-w].)\s*// || do {
+ # s/^(.)([-r][-w].[-r][-w].[-r][-w].)\s*// || do {
+ # patch for ProFTPD
+ s/^ ?(.)([-r][-w].[-r][-w].[-r][-w].)\s*// || do {
   log::putl("DEBUG", "invalid format: \"$x\"");
   return undef;
  };
