Fix #5443 bug.

michal-josef-spacek · Dec 18, 2014 · 967cf4a · 967cf4a
1 parent 2ca917d
commit 967cf4a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -4,6 +4,7 @@ Revision history for Perl extension POE::Filter::Ls.
  - Add doc stub.
  - Add test for #5443 bug.
  - Add tests.
+ - Fix #5443 bug.
  - Remove trailing whitespace.
  - Rewrite Changes file to CPAN::Changes::SPEC format.
  - Rewrite build system.

diff --git a/Ls.pm b/Ls.pm
@@ -21,7 +21,7 @@ sub get {
 
   return [ map {
     my %info;
-    if (/^(.|-)(.{9})\s+(\d+)\s+(\w+)\s+(\w+)\s+(\d+)\s+(\w{3}\s+\d+\s+\d+:\d+)\s+(.*?)(?:\s+->\s+(.*))?$/) {
+    if (/^(.|-)(.{9})\s+(\d+)\s+(\w+)\s+(\w+)\s+(\d+)\s+(\w{3}\s+\d+\s+(?:\d+:\d+|\d+))\s+(.*?)(?:\s+->\s+(.*))?$/) {
       @info{"type","perms","links","owner","group","size","date","filename","link"} = ($1, $2, $3, $4, $5, $6, $7, $8, $9);
     }
     \%info;