diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-01-08 13:49:21 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-01-09 12:22:53 +0000 |
commit | 60504e186da3226f64f36cdc4c9e700993e6f372 (patch) | |
tree | afca9944b071e6a828748364167bac09e7be41b2 | |
parent | 6f3ed33686edc657dce73f7b5a70e096a40970aa (diff) | |
download | perl-60504e186da3226f64f36cdc4c9e700993e6f372.tar.gz |
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.
-rw-r--r-- | opcode.h | 6 | ||||
-rw-r--r-- | pp_proto.h | 2 | ||||
-rw-r--r-- | pp_sys.c | 2 | ||||
-rwxr-xr-x | regen/opcode.pl | 2 |
4 files changed, 6 insertions, 6 deletions
@@ -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); @@ -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'], |