… | … | ||
---|---|---|---|
93 | } | 93 | } |
94 | 94 | ||
95 | $fh; | 95 | $fh; |
96 | } | 96 | } |
97 | 97 | ||
98 | sub new_inet { | 98 | sub new { |
99 | my $class = shift; | 99 | my $class = shift; |
100 | my %arg = @_; | 100 | my %arg = @_; |
101 | my $fh; | 101 | my $fh; |
102 | 102 | ||
103 | $arg{Proto} ||= 'tcp'; | 103 | $arg{Proto} ||= 'tcp'; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |