modified $VERSION
wendigo
22 years ago
| 0 | 0 | ########################################################################### |
| 1 | # $Id: Agent.pm,v 1.1 2002/03/09 16:57:56 wendigo Exp $ | |
| 1 | # $Id: Agent.pm,v 1.2 2002/04/26 02:50:17 wendigo Exp $ | |
| 2 | 2 | ########################################################################### |
| 3 | 3 | # |
| 4 | 4 | # Log::Agent |
| 5 | 5 | # |
| 6 | # RCS Revision: $Revision: 1.1 $ | |
| 7 | # Date: $Date: 2002/03/09 16:57:56 $ | |
| 6 | # RCS Revision: $Revision: 1.2 $ | |
| 7 | # Date: $Date: 2002/04/26 02:50:17 $ | |
| 8 | 8 | # |
| 9 | 9 | # Copyright (C) 1999 Raphael Manfredi. |
| 10 | 10 | # Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. |
| 13 | 13 | # distribution for license information. |
| 14 | 14 | # |
| 15 | 15 | # $Log: Agent.pm,v $ |
| 16 | # Revision 1.2 2002/04/26 02:50:17 wendigo | |
| 17 | # modified $VERSION | |
| 18 | # | |
| 16 | 19 | # Revision 1.1 2002/03/09 16:57:56 wendigo |
| 17 | 20 | # New maintainer |
| 18 | 21 | # |
| 65 | 68 | use Log::Agent::Priorities qw(:LEVELS priority_level level_from_prio); |
| 66 | 69 | use Log::Agent::Formatting qw(tag_format_args); |
| 67 | 70 | |
| 68 | $VERSION = sprintf "%d.%01d%02d", (split /\D+/, '$Name: $')[1..3]; | |
| 71 | $VERSION = (qw( $Name: $ ))[1]; | |
| 69 | 72 | |
| 70 | 73 | $Trace = NOTICE; # Default tracing |
| 71 | 74 | |