# file:
#    /usr/local/perllibs/LWP/UserAgent/NoRedirects.pm
# usage:
#    use LWP::NoRedirects;
#

use LWP::UserAgent;

package LWP::UserAgent::NoRedirects;

use base qw(LWP::UserAgent);

sub new {
  my ($class, $base) = @_;
  
  my $parser = new LWP::UserAgent;
  $parser->{base} = $base;

  bless $parser, $class;
}

sub redirect_ok {
  return 0;
}

1;