From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 12 Feb 2012 02:34:05 +0000 (+0000)
Subject: fix Ssyshere to Shere after re-reading UUCP protocol docs
X-Git-Tag: v0.001004~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac3e780c183dfb0a70dfce38f4766cfd587a3575;p=scpubgit%2FTak.git

fix Ssyshere to Shere after re-reading UUCP protocol docs
---

diff --git a/Changes b/Changes
index d3e7f5c..04b7eb8 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+  - fix Ssyshere to Shere after re-reading UUCP protocol docs
+
 0.001003 - 2011-12-23
   - fix mk-fat to not miss anything else
 
diff --git a/lib/Tak/ConnectorService.pm b/lib/Tak/ConnectorService.pm
index 3bcf64e..3fde0f0 100644
--- a/lib/Tak/ConnectorService.pm
+++ b/lib/Tak/ConnectorService.pm
@@ -29,7 +29,7 @@ sub handle_create {
     # confuse things by sending before the dup.
     my $up = <$kid_out>;
     die [ failure => "Garbled response from child: $up" ]
-      unless $up eq "Ssyshere\n";
+      unless $up eq "Shere\n";
   }
   my $connection = Tak::ConnectionService->new(
     read_fh => $kid_out, write_fh => $kid_in,
diff --git a/lib/Tak/STDIOSetup.pm b/lib/Tak/STDIOSetup.pm
index 30c9851..eca4779 100644
--- a/lib/Tak/STDIOSetup.pm
+++ b/lib/Tak/STDIOSetup.pm
@@ -38,7 +38,7 @@ sub run {
   log_debug { "Node starting" };
   # Tell the other end that we've finished messing around with file
   # descriptors and that it's therefore safe to start sending requests.
-  print $stdout "Ssyshere\n";
+  print $stdout "Shere\n";
   Tak->loop_until($done);
   if (our $Next) { goto &$Next }
 }