diff options
| author | rjray <devnull@localhost> | 2000-05-30 01:03:13 +0000 |
|---|---|---|
| committer | rjray <devnull@localhost> | 2000-05-30 01:03:13 +0000 |
| commit | 81c22296d07b22db81bba9af308f3b04b409aa89 (patch) | |
| tree | 41a30b090003c1033c6a7e590847378a331a04ba /Perl-RPM/RPM/Error.pm | |
| parent | 3b00918ccb698b4e50661ceee3e8254609d1a4e7 (diff) | |
| download | rpm-81c22296d07b22db81bba9af308f3b04b409aa89.tar.gz rpm-81c22296d07b22db81bba9af308f3b04b409aa89.tar.bz2 rpm-81c22296d07b22db81bba9af308f3b04b409aa89.zip | |
checkpoint for second alpha (0.2) release
CVS patchset: 3764
CVS date: 2000/05/30 01:03:13
Diffstat (limited to 'Perl-RPM/RPM/Error.pm')
| -rw-r--r-- | Perl-RPM/RPM/Error.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Perl-RPM/RPM/Error.pm b/Perl-RPM/RPM/Error.pm index 5372e2152..bf419474f 100644 --- a/Perl-RPM/RPM/Error.pm +++ b/Perl-RPM/RPM/Error.pm @@ -7,7 +7,7 @@ # ############################################################################### # -# $Id: Error.pm,v 1.1 2000/05/27 03:53:56 rjray Exp $ +# $Id: Error.pm,v 1.2 2000/05/30 01:03:13 rjray Exp $ # # Description: Error-management support that cooperates with the primary # Perl/C error glue. @@ -34,7 +34,7 @@ require RPM; @ISA = qw(Exporter); $VERSION = $RPM::VERSION; -$revision = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r }; +$revision = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r }; @EXPORT = qw(clear_errors set_error_callback rpm_error); @EXPORT_OK = @EXPORT; @@ -90,7 +90,7 @@ Clears both the numeric and string values of C<$RPM::err>. =item $old_cb = set_error_callback($subr) Set a (new) callback to be invoked whenever a new error is flagged. Returns -the old (existing) callback value if there was one. +the old (existing) callback value if there was one, C<undef> otherwise. The parameter to this call should be either a subroutine reference or a closure. A subroutine name may be passed; if so, it should either be given @@ -112,9 +112,6 @@ callback is set to a null value. The code value passed to B<rpm_error> is not checked against the list of valid constants before assignment. -The B<set_error_callback> should return the current callback, which could then -be restored. This does not currently work correctly, and should not be used. - =head1 SEE ALSO L<RPM>, L<perl>, L<rpm> |