From 7411c62eab0e6a48bca8460c856cb1b8a63a51a9 Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Wed, 21 Oct 1998 01:55:08 +0000
Subject: Fix typo in Net::Cmd

---
 Net/Cmd.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Net/Cmd.pm b/Net/Cmd.pm
index 8e414ef..4ec3c5f 100644
--- a/Net/Cmd.pm
+++ b/Net/Cmd.pm
@@ -210,7 +210,7 @@ sub getline
     if scalar(@{${*$cmd}{'net_cmd_lines'}});
 
  my $partial = defined(${*$cmd}{'net_cmd_partial'})
-		? ${*$cmd}{'net_cmd_partial'} : || "";
+		? ${*$cmd}{'net_cmd_partial'} : "";
  my $fd = fileno($cmd);
  
  return undef
@@ -358,7 +358,7 @@ sub datasend
  my $len = length($line) - 1;
  my $offset = 1;
  my $win = "";
- vec($win,$fd,1) = 1;
+ vec($win,fileno($cmd),1) = 1;
  my $timeout = $cmd->timeout || undef;
 
  while($len)
-- 
cgit v1.2.3-24-ge0c7