in reply to Use of uninitialized value in numeric gt (>) at find_hog line 21, <> line 1

What Fletch said - fix: 
    @files = map { "$fs/$_" }
         grep { -f "$fs/$_" and /^\.*/ } readdir(DIR);

[download]
  • Comment on Re: Use of uninitialized value in numeric gt (>) at find_hog line 21, <> line 1
  • Download Code

In Section Seekers of Perl Wisdom