|
Line
Link Here
|
| 0 |
-- 1/Portage.pm |
0 |
++ 1/Portage.pm |
|
Lines 705-716
Link Here
|
| 705 |
} |
705 |
} |
| 706 |
|
706 |
|
| 707 |
|
707 |
|
| 708 |
# returns a list of all lines of a given file |
708 |
# returns a list of all lines of a given file/dir |
| 709 |
# that are no pure comments |
709 |
# that are no pure comments |
| 710 |
# Parameter 1: filename |
710 |
# Parameter 1: filename/dirname |
| 711 |
sub _noncomments { |
711 |
sub _noncomments { |
| 712 |
my ($fname) = @_; |
712 |
my ($fname) = @_; |
| 713 |
my @result; |
713 |
my @result; |
|
|
714 |
if(-d $fname) { |
| 715 |
@result = (); |
| 716 |
for my $i (_get_files_from_dir($fname)) { |
| 717 |
(-f $i) && push @result, _noncomments($i); |
| 718 |
} |
| 719 |
return @result; |
| 720 |
} |
| 714 |
local $/; |
721 |
local $/; |
| 715 |
if(open my $file, '<', $fname) { |
722 |
if(open my $file, '<', $fname) { |
| 716 |
binmode( $file, ":encoding(UTF-8)" ); |
723 |
binmode( $file, ":encoding(UTF-8)" ); |
