diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-11-02 21:27:58 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-11-02 21:27:58 +0000 |
commit | 605b9385ca432fdf5dd870e452cfa8fc5038eab7 (patch) | |
tree | 0944bd4c65457f142fc212862178100ba30a6da3 /opcode.pl | |
parent | 1444765efaefee475386d81c393f3e679a455714 (diff) | |
download | perl-605b9385ca432fdf5dd870e452cfa8fc5038eab7.tar.gz |
unlink chmod utime kill can be merged into Perl_pp_chown().
p4raw-id: //depot/perl@25964
Diffstat (limited to 'opcode.pl')
-rwxr-xr-x | opcode.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -67,9 +67,9 @@ my @raw_alias = ( Perl_pp_gservent => [qw(gsbyname gsbyport)], Perl_pp_gpwent => [qw(gpwnam gpwuid)], Perl_pp_ggrent => [qw(ggrnam ggrgid)], - Perl_pp_ftis => [qw(ftsize ftmtime ftatime ftctime)], -); + Perl_pp_chown => [qw(unlink chmod utime kill)], + ); while (my ($func, $names) = splice @raw_alias, 0, 2) { $alias{$_} = $func for @$names; |