Change 29571 by [EMAIL PROTECTED] on 2006/12/18 00:27:43
POSIX::SigAction::new can be moved into the AUTOLOAD section.
Affected files ...
... //depot/perl/ext/POSIX/POSIX.pm#47 edit
Differences ...
==== //depot/perl/ext/POSIX/POSIX.pm#47 (text) ====
Index: perl/ext/POSIX/POSIX.pm
--- perl/ext/POSIX/POSIX.pm#46~29353~ 2006-11-22 09:00:54.000000000 -0800
+++ perl/ext/POSIX/POSIX.pm 2006-12-17 16:27:43.000000000 -0800
@@ -59,7 +59,6 @@
package POSIX::SigAction;
use AutoLoader 'AUTOLOAD';
-sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE =>
0}, $_[0] }
package POSIX::SigRt;
@@ -1036,6 +1035,7 @@
package POSIX::SigAction;
+sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE =>
0}, $_[0] }
sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} };
sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} };
End of Patch.