warning message (not!)

       Message-Id: <200102081438.OAA20498@tempest.npl.co.uk>

p4raw-id: //depot/perl@8717

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index fce7dc4..ed48d68 100644 (file)
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -5388,7 +5388,7 @@ sub TIEHANDLE {
     $ret = bless {GZ => $gz}, $class;
   } else {
     my $pipe = "$CPAN::Config->{gzip} --decompress --stdout $file |";
-    my $fh = FileHandle->new($pipe) or die "Could pipe[$pipe]: $!";
+    my $fh = FileHandle->new($pipe) or die "Could not pipe[$pipe]: $!";
     binmode $fh;
     $ret = bless {FH => $fh}, $class;
   }