Skip to content

Commit

Permalink
s/depreciat/deprecat/g;
Browse files Browse the repository at this point in the history
  • Loading branch information
@rcaputo
rcaputo committed Aug 12, 2001
1 parent 9364798 commit 3722067
Show file tree
Hide file tree
Showing 6 changed files with 33 additions and 33 deletions.
4 changes: 2 additions & 2 deletions lib/POE/Kernel.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1765,7 +1765,7 @@ sub call {

#------------------------------------------------------------------------------
# Peek at pending alarms. Returns a list of pending alarms. This
# function is depreciated; its lack of documentation is by design.
# function is deprecated; its lack of documentation is by design.
# Here's the old POD, in case you're interested.
#
# # Return the names of pending timed events.
Expand Down Expand Up @@ -3461,7 +3461,7 @@ session owns that alarm.
=item alarm_remove_all
alarm_remove_all() removes all alarms for the current session. It
obviates the need for queue_peek_alarms(), which has been depreciated.
obviates the need for queue_peek_alarms(), which has been deprecated.
This function takes no arguments. In scalar context, it returns a
reference to a list of alarms that were removed. In list context, it
Expand Down
4 changes: 2 additions & 2 deletions lib/POE/Session.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -170,7 +170,7 @@ sub import {
}

#------------------------------------------------------------------------------
# Classic style constructor. This is unofficially depreciated in
# Classic style constructor. This is unofficially deprecated in
# favor of the create() constructor. Its DWIM nature does things
# people don't mean, so create() is a little more explicit.

Expand Down Expand Up @@ -215,7 +215,7 @@ sub new {
# Check for common problems.

unless ((defined $first) && (length $first)) {
carp "depreciated: using an undefined state name";
carp "deprecated: using an undefined state name";
}

if (ref($first) eq 'CODE') {
Expand Down
10 changes: 5 additions & 5 deletions lib/POE/Wheel/FollowTail.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -51,23 +51,23 @@ sub new {
# STATE-EVENT
if (exists $params{InputState}) {
if (exists $params{InputEvent}) {
carp "InputEvent takes precedence over depreciated InputState";
carp "InputEvent takes precedence over deprecated InputState";
delete $params{InputState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{InputEvent} = delete $params{InputState};
}
}

# STATE-EVENT
if (exists $params{ErrorState}) {
if (exists $params{ErrorEvent}) {
carp "ErrorEvent takes precedence over depreciated ErrorState";
carp "ErrorEvent takes precedence over deprecated ErrorState";
delete $params{ErrorState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{ErrorEvent} = delete $params{ErrorState};
}
}
Expand Down Expand Up @@ -230,7 +230,7 @@ sub event {

# STATE-EVENT
if ($name =~ /^(.*?)State$/) {
# depreciation warning goes here
# deprecation warning goes here
$name = $1 . 'Event';
}

Expand Down
10 changes: 5 additions & 5 deletions lib/POE/Wheel/ListenAccept.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -31,23 +31,23 @@ sub new {
# STATE-EVENT
if (exists $params{AcceptState}) {
if (exists $params{AcceptEvent}) {
carp "AcceptEvent takes precedence over depreciated AcceptState";
carp "AcceptEvent takes precedence over deprecated AcceptState";
delete $params{AcceptState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{AcceptEvent} = delete $params{AcceptState};
}
}

# STATE-EVENT
if (exists $params{ErrorState}) {
if (exists $params{ErrorEvent}) {
carp "ErrorEvent takes precedence over depreciated ErrorState";
carp "ErrorEvent takes precedence over deprecated ErrorState";
delete $params{ErrorState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{ErrorEvent} = delete $params{ErrorState};
}
}
Expand Down Expand Up @@ -79,7 +79,7 @@ sub event {

# STATE-EVENT
if ($name =~ /^(.*?)State$/) {
# depreciation warning goes here
# deprecation warning goes here
$name = $1 . 'Event';
}

Expand Down
22 changes: 11 additions & 11 deletions lib/POE/Wheel/ReadWrite.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -77,59 +77,59 @@ sub new {
# STATE-EVENT
if (exists $params{HighState}) {
if (exists $params{HighEvent}) {
carp "HighEvent parameter takes precedence over depreciated HighState";
carp "HighEvent parameter takes precedence over deprecated HighState";
delete $params{HighState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{HighEvent} = delete $params{HighState};
}
}

# STATE-EVENT
if (exists $params{LowState}) {
if (exists $params{LowEvent}) {
carp "LowEvent parameter takes precedence over depreciated LowState";
carp "LowEvent parameter takes precedence over deprecated LowState";
delete $params{LowState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{LowEvent} = delete $params{LowState};
}
}

# STATE-EVENT
if (exists $params{InputState}) {
if (exists $params{InputEvent}) {
carp "InputEvent takes precedence over depreciated InputState";
carp "InputEvent takes precedence over deprecated InputState";
delete $params{InputState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{InputEvent} = delete $params{InputState};
}
}

# STATE-EVENT
if (exists $params{ErrorState}) {
if (exists $params{ErrorEvent}) {
carp "ErrorEvent takes precedence over depreciated ErrorState";
carp "ErrorEvent takes precedence over deprecated ErrorState";
delete $params{ErrorState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{ErrorEvent} = delete $params{ErrorState};
}
}

# STATE-EVENT
if (exists $params{FlushedState}) {
if (exists $params{FlushedEvent}) {
carp "FlushedEvent takes precedence over depreciated FlushedState";
carp "FlushedEvent takes precedence over deprecated FlushedState";
delete $params{FlushedState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{FlushedEvent} = delete $params{FlushedState};
}
}
Expand Down Expand Up @@ -389,7 +389,7 @@ sub event {

# STATE-EVENT
if ($name =~ /^(.*?)State$/) {
# depreciation warning goes here
# deprecation warning goes here
$name = $1 . 'Event';
}

Expand Down
16 changes: 8 additions & 8 deletions lib/POE/Wheel/SocketFactory.pm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -254,14 +254,14 @@ sub event {

# STATE-EVENT
if ($name =~ /^(.*?)State$/) {
# depreciation warning goes here
# deprecation warning goes here
$name = $1 . 'Event';
}

if ($name eq 'SuccessEvent') {
if (defined $event) {
if (ref($event) eq 'CODE') {
carp( "SuccessEvent coderefs are depreciated " .
carp( "SuccessEvent coderefs are deprecated " .
"(and will go away after version 0.13)"
);
$poe_kernel->state
Expand All @@ -285,7 +285,7 @@ sub event {
elsif ($name eq 'FailureEvent') {
if (defined $event) {
if (ref($event) eq 'CODE') {
carp( "FailureEvent coderefs are depreciated " .
carp( "FailureEvent coderefs are deprecated " .
"(and will go away after version 0.13)"
);
$poe_kernel->state
Expand Down Expand Up @@ -349,30 +349,30 @@ sub new {

my %params = @_;

# The calling conventio experienced a hard depreciation.
# The calling conventio experienced a hard deprecation.
croak "wheels no longer require a kernel reference as their first parameter"
if (@_ && (ref($_[0]) eq 'POE::Kernel'));

# STATE-EVENT
if (exists $params{SuccessState}) {
if (exists $params{SuccessEvent}) {
carp "SuccessEvent takes precedence over depreciated SuccessState";
carp "SuccessEvent takes precedence over deprecated SuccessState";
delete $params{SuccessState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{SuccessEvent} = delete $params{SuccessState};
}
}

# STATE-EVENT
if (exists $params{FailureState}) {
if (exists $params{FailureEvent}) {
carp "FailureEvent takes precedence over depreciated FailureState";
carp "FailureEvent takes precedence over deprecated FailureState";
delete $params{FailureState};
}
else {
# depreciation warning goes here
# deprecation warning goes here
$params{FailureEvent} = delete $params{FailureState};
}
}
Expand Down

0 comments on commit 3722067

Please sign in to comment.