Changeset 244

Timestamp:

05/03/06 13:56:25 (18 years ago)

Author:

nanardon

Message:

• lha list files differently if he archive come from DOS/Windows or unix, then adding a regexp to proper filter only files in the list for all case, ->ls() should no longer return files named "----------"

File:

• trunk/soft/ObsData/ObsData/Archive/Lha.pm (modified) (1 diff)

trunk/soft/ObsData/ObsData/Archive/Lha.pm

@@ -31 +31 @@
     while(<$hlha>) {
         chomp;
+        /^(\[\w*\]|(-|d|l|c|b)((-|r)(-|w)(-|x)){3} [^-])/ or next;
         /^.{51}(.*)$/;
         push(@list, $1);