diff options
| author | fukachan <fukachan> | 2001-03-20 09:44:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-20 09:44:57 +0000 |
| commit | db1c5797b32dd075bcf455c5300ed82f9b22b8aa (patch) | |
| tree | cd9c9f2524dcf5a063f1345b53e8681451ab6d51 /fml/lib/IO/Adapter/Array.pm | |
| parent | 2198c4ce73b096d94ac6cbc591c86eca0a73b054 (diff) | |
| download | fml8-db1c5797b32dd075bcf455c5300ed82f9b22b8aa.tar.gz fml8-db1c5797b32dd075bcf455c5300ed82f9b22b8aa.tar.bz2 fml8-db1c5797b32dd075bcf455c5300ed82f9b22b8aa.zip | |
rewritten to ErrorMessages::Status module for unification of error
buffer handling.
Diffstat (limited to 'fml/lib/IO/Adapter/Array.pm')
| -rw-r--r-- | fml/lib/IO/Adapter/Array.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fml/lib/IO/Adapter/Array.pm b/fml/lib/IO/Adapter/Array.pm index acc60775..04b6970d 100644 --- a/fml/lib/IO/Adapter/Array.pm +++ b/fml/lib/IO/Adapter/Array.pm @@ -13,6 +13,7 @@ package IO::Adapter::Array; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; +use ErrorMessages::Status qw(error_set error error_reset); =head1 NAME @@ -84,7 +85,7 @@ sub open my $r_array = $self->{ _array_reference}; if ($flag ne 'r') { - $self->_error_reason("Error: type=$self->{_type} is read only."); + $self->error_set("Error: type=$self->{_type} is read only."); return undef; } |