diff options
| -rw-r--r-- | xpp/perl_modules/Dahdi/Span.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Span.pm b/xpp/perl_modules/Dahdi/Span.pm index 367ca08..4e63af4 100644 --- a/xpp/perl_modules/Dahdi/Span.pm +++ b/xpp/perl_modules/Dahdi/Span.pm @@ -236,7 +236,8 @@ sub new($$) { $self->{CHANS} = []; my @channels; my $index = 0; - while(<F>) { + my @channel_lines = <F>; + foreach (@channel_lines) { chomp; s/^\s*//; s/\s*$//; |