summaryrefslogtreecommitdiff
path: root/opcode.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-11-02 21:27:58 +0000
committerNicholas Clark <nick@ccl4.org>2005-11-02 21:27:58 +0000
commit605b9385ca432fdf5dd870e452cfa8fc5038eab7 (patch)
tree0944bd4c65457f142fc212862178100ba30a6da3 /opcode.pl
parent1444765efaefee475386d81c393f3e679a455714 (diff)
downloadperl-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-xopcode.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/opcode.pl b/opcode.pl
index 7ac99228e9..921324c325 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -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;