Redundant return.

p4raw-id: //depot/perl@13164

diff --git a/ext/MIME/Base64/QuotedPrint.pm b/ext/MIME/Base64/QuotedPrint.pm
index 409c716..0b93f20 100644 (file)
--- a/ext/MIME/Base64/QuotedPrint.pm
+++ b/ext/MIME/Base64/QuotedPrint.pm
@@ -169,7 +169,6 @@ sub FILL
  my ($obj,$fh) = @_;
  my $line = <$fh>;
  return (defined $line) ? decode_qp($line) : undef;
- return undef;
 }
 
 sub WRITE