Message-Id: <
1067229244.1071.51.camel@plaza.davidnicol.com>
p4raw-id: //depot/perl@21616
This method will be triggered every time the tied variable is set
(assigned). Beyond its self reference, it also expects one (and only one)
-argument--the new value the user is trying to assign.
+argument--the new value the user is trying to assign. Don't worry about
+returning a value from STORE -- the semantic of assignment returning the
+assigned value is implemented with FETCH.
sub STORE {
my $self = shift;
unless (defined setpriority(PRIO_PROCESS, $$self, $new_nicety)) {
confess "setpriority failed: $!";
}
- return $new_nicety;
}
=item UNTIE this