# | Line 72 | Line 72 | sub parse { | |
---|---|---|
72 | use FileHandle; | |
73 | my $filehandle=FileHandle->new(); | |
74 | open( $filehandle , "$self->{filename}" ) | |
75 | < | or carp "Switcher: Cannot open $self->{filename} $! \n"; |
75 | > | or return 1; |
76 | > | # or carp "Switcher: Cannot open $self->{filename} $! \n"; |
77 | ||
78 | # Start file processing | |
79 | while ( <$filehandle> ) { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |