| … | … | ||
|---|---|---|---|
| 1816 | for (@$files) { | 1816 | for (@$files) { |
| 1817 | utf8::decode $_; | 1817 | utf8::decode $_; |
| 1818 | next if /\.(?:pl|pst)$/; | 1818 | next if /\.(?:pl|pst)$/; |
| 1819 | next unless /^$PATH_SEP/o; | 1819 | next unless /^$PATH_SEP/o; |
| 1820 | 1820 | ||
| 1821 | push @paths, cf::map::normalise "~$pl/$_", $pl->map; | 1821 | push @paths, cf::map::normalise "~$pl/$_"; |
| 1822 | } | 1822 | } |
| 1823 | 1823 | ||
| 1824 | \@paths | 1824 | \@paths |
| 1825 | } | 1825 | } |
| 1826 | 1826 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |