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.

diff --git a/opcode.h b/opcode.h
index 9e42d8b..33b485c 100644 (file)
--- 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 dfba483..41f03e0 100644 (file)
--- 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 d6fd168..69ca3f9 100644 (file)
--- 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 ece3dbe..94e95e0 100755 (executable)
--- 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'],