From 60504e186da3226f64f36cdc4c9e700993e6f372 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 8 Jan 2011 13:49:21 +0000
Subject: Rename pp_send to pp_syswrite, making send an alias for syswrite.

Previously syswrite was an alias for send. However, syswrite is always
available, whereas send is not implemented if HAS_SOCKET is not defined.
---
 opcode.h        | 6 +++---
 pp_proto.h      | 2 +-
 pp_sys.c        | 2 +-
 regen/opcode.pl | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/opcode.h b/opcode.h
index 9e42d8bc23..33b485cf8b 100644
--- a/opcode.h
+++ b/opcode.h
@@ -51,9 +51,9 @@
 #define Perl_pp_dbmclose Perl_pp_untie
 #define Perl_pp_read Perl_pp_sysread
 #define Perl_pp_say Perl_pp_print
-#define Perl_pp_syswrite Perl_pp_send
 #define Perl_pp_seek Perl_pp_sysseek
 #define Perl_pp_fcntl Perl_pp_ioctl
+#define Perl_pp_send Perl_pp_syswrite
 #define Perl_pp_recv Perl_pp_sysread
 #define Perl_pp_connect Perl_pp_bind
 #define Perl_pp_gsockopt Perl_pp_ssockopt
@@ -1113,7 +1113,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 	Perl_pp_sysopen,
 	Perl_pp_sysseek,
 	Perl_pp_sysread,
-	Perl_pp_syswrite,	/* implemented by Perl_pp_send */
+	Perl_pp_syswrite,
 	Perl_pp_eof,
 	Perl_pp_tell,
 	Perl_pp_seek,	/* implemented by Perl_pp_sysseek */
@@ -1121,7 +1121,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 	Perl_pp_fcntl,	/* implemented by Perl_pp_ioctl */
 	Perl_pp_ioctl,
 	Perl_pp_flock,
-	Perl_pp_send,
+	Perl_pp_send,	/* implemented by Perl_pp_syswrite */
 	Perl_pp_recv,	/* implemented by Perl_pp_sysread */
 	Perl_pp_socket,
 	Perl_pp_sockpair,
diff --git a/pp_proto.h b/pp_proto.h
index dfba483de0..41f03e0a4f 100644
--- a/pp_proto.h
+++ b/pp_proto.h
@@ -216,7 +216,6 @@ PERL_CALLCONV OP *Perl_pp_seekdir(pTHX);
 PERL_CALLCONV OP *Perl_pp_select(pTHX);
 PERL_CALLCONV OP *Perl_pp_semctl(pTHX);
 PERL_CALLCONV OP *Perl_pp_semget(pTHX);
-PERL_CALLCONV OP *Perl_pp_send(pTHX);
 PERL_CALLCONV OP *Perl_pp_seq(pTHX);
 PERL_CALLCONV OP *Perl_pp_setpgrp(pTHX);
 PERL_CALLCONV OP *Perl_pp_setpriority(pTHX);
@@ -257,6 +256,7 @@ PERL_CALLCONV OP *Perl_pp_sysopen(pTHX);
 PERL_CALLCONV OP *Perl_pp_sysread(pTHX);
 PERL_CALLCONV OP *Perl_pp_sysseek(pTHX);
 PERL_CALLCONV OP *Perl_pp_system(pTHX);
+PERL_CALLCONV OP *Perl_pp_syswrite(pTHX);
 PERL_CALLCONV OP *Perl_pp_tell(pTHX);
 PERL_CALLCONV OP *Perl_pp_telldir(pTHX);
 PERL_CALLCONV OP *Perl_pp_tie(pTHX);
diff --git a/pp_sys.c b/pp_sys.c
index d6fd168087..69ca3f9c2b 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1821,7 +1821,7 @@ PP(pp_sysread)
     RETPUSHUNDEF;
 }
 
-PP(pp_send)
+PP(pp_syswrite)
 {
     dVAR; dSP; dMARK; dORIGMARK; dTARGET;
     SV *bufsv;
diff --git a/regen/opcode.pl b/regen/opcode.pl
index ece3dbeff5..94e95e0138 100755
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -94,7 +94,7 @@ my @raw_alias = (
 		 Perl_pp_ftrread => [qw(ftrwrite ftrexec fteread ftewrite
  					fteexec)],
 		 Perl_pp_shmwrite => [qw(shmread msgsnd msgrcv semop)],
-		 Perl_pp_send => ['syswrite'],
+		 Perl_pp_syswrite => ['send'],
 		 Perl_pp_defined => [qw(dor dorassign)],
                  Perl_pp_and => ['andassign'],
 		 Perl_pp_or => ['orassign'],
-- 
cgit v1.2.1