X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FHTTPTest.pm;h=885850d0304fe8026737ff0ed4f64c5687dc0387;hp=7274adc6bea620fc531cea18efd5ffd2ecdd7257;hb=227d03c80379c269eaf7ee57da711f22d13b33b8;hpb=0690ad6354248bb3a2bee19220368b87735ad600 diff --git a/tests/HTTPTest.pm b/tests/HTTPTest.pm old mode 100755 new mode 100644 index 7274adc6..885850d0 --- a/tests/HTTPTest.pm +++ b/tests/HTTPTest.pm @@ -15,18 +15,18 @@ my $VERSION = 0.01; my %_attr_data = ( # DEFAULT ); - sub _default_for - { - my ($self, $attr) = @_; + sub _default_for + { + my ($self, $attr) = @_; return $_attr_data{$attr} if exists $_attr_data{$attr}; - return $self->SUPER::_default_for($attr); - } + return $self->SUPER::_default_for($attr); + } - sub _standard_keys - { + sub _standard_keys + { my ($self) = @_; - ($self->SUPER::_standard_keys(), keys %_attr_data); - } + ($self->SUPER::_standard_keys(), keys %_attr_data); + } }