diff -Nru liblog-agent-perl-0.307/Agent/Channel/File.pm liblog-agent-perl-1.000/Agent/Channel/File.pm --- liblog-agent-perl-0.307/Agent/Channel/File.pm 2002-03-09 16:05:44.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Channel/File.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,32 +1,15 @@ ########################################################################### -# $Id: File.pm,v 1.1 2002/03/09 16:05:44 wendigo Exp $ -########################################################################### -# -# Log::Agent:: -# -# RCS Revision: $Revision: 1.1 $ -# Date: $Date: 2002/03/09 16:05:44 $ -# -########################################################################### # -# Copyright (C) 1999 Raphael Manfredi. -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. +# File.pm # -# See the README file in the distribution for license information. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -########################################################################### -# -# $Log: File.pm,v $ -# Revision 1.1 2002/03/09 16:05:44 wendigo -# Added file permission arguments -# -# Revision 0.2.1.1 2001/03/31 10:00:14 ram -# patch7: fixed =over to add explicit indent level +# See the README file included with the +# distribution for license information. # -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -########################################################################### +########################################################################## use strict; require Log::Agent::Channel; diff -Nru liblog-agent-perl-0.307/Agent/Channel/Handle.pm liblog-agent-perl-1.000/Agent/Channel/Handle.pm --- liblog-agent-perl-0.307/Agent/Channel/Handle.pm 2002-03-09 16:06:26.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Channel/Handle.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,15 @@ +########################################################################### # -# $Id: Handle.pm,v 1.1 2002/03/09 16:06:26 wendigo Exp $ +# Handle.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Handle.pm,v $ -# Revision 1.1 2002/03/09 16:06:26 wendigo -# New maintainer -# -# Revision 0.2.1.1 2001/03/31 10:00:16 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; require Log::Agent::Channel; diff -Nru liblog-agent-perl-0.307/Agent/Channel/Syslog.pm liblog-agent-perl-1.000/Agent/Channel/Syslog.pm --- liblog-agent-perl-0.307/Agent/Channel/Syslog.pm 2002-03-09 16:06:26.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Channel/Syslog.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ +########################################################################### # -# $Id: Syslog.pm,v 1.1 2002/03/09 16:06:26 wendigo Exp $ +# Syslog.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Syslog.pm,v $ -# Revision 1.1 2002/03/09 16:06:26 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/03/31 10:00:19 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2.1.1 2001/03/14 23:40:18 ram -# patch5: forgot to handle -prefix -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; require Log::Agent::Channel; diff -Nru liblog-agent-perl-0.307/Agent/Channel.pm liblog-agent-perl-1.000/Agent/Channel.pm --- liblog-agent-perl-0.307/Agent/Channel.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Channel.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ +########################################################################### # -# $Id: Channel.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Channel.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Channel.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/04/11 15:51:10 ram -# patch8: added hyperlinks within POD to ease web browsing of manpage -# -# Revision 0.2.1.1 2001/03/31 10:00:11 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Driver/Datum.pm liblog-agent-perl-1.000/Agent/Driver/Datum.pm --- liblog-agent-perl-0.307/Agent/Driver/Datum.pm 2002-03-09 15:53:16.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/Datum.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,15 @@ +########################################################################### # -# $Id: Datum.pm,v 1.1 2002/03/09 15:53:16 wendigo Exp $ +# Datum.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Datum.pm,v $ -# Revision 1.1 2002/03/09 15:53:16 wendigo -# New maintainer -# -# Revision 0.2.1.1 2001/03/31 10:00:41 ram -# patch7: massive renaming Devel::Datum -> Carp::Datum -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; require Log::Agent::Driver; diff -Nru liblog-agent-perl-0.307/Agent/Driver/Default.pm liblog-agent-perl-1.000/Agent/Driver/Default.pm --- liblog-agent-perl-0.307/Agent/Driver/Default.pm 2002-03-09 15:54:27.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/Default.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ +########################################################################### # -# $Id: Default.pm,v 1.1 2002/03/09 15:54:27 wendigo Exp $ +# Default.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Default.pm,v $ -# Revision 1.1 2002/03/09 15:54:27 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/03/31 10:00:53 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2.1.1 2000/11/12 14:45:51 ram -# patch1: need to reset $\ before printing -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; require Log::Agent::Driver; diff -Nru liblog-agent-perl-0.307/Agent/Driver/File.pm liblog-agent-perl-1.000/Agent/Driver/File.pm --- liblog-agent-perl-0.307/Agent/Driver/File.pm 2002-03-09 15:58:47.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/File.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,32 +1,15 @@ ########################################################################### -# $Id: File.pm,v 1.1 2002/03/09 15:58:47 wendigo Exp $ -########################################################################### -# -# Log::Agent:: -# -# RCS Revision: $Revision: 1.1 $ -# Date: $Date: 2002/03/09 15:58:47 $ -# -# Copyright (C) 1999 Raphael Manfredi. -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. # -# See the README file included in the distribution for license information. +# File.pm # -# $Log: File.pm,v $ -# Revision 1.1 2002/03/09 15:58:47 wendigo -# Added file permission arguments +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.2 2001/03/31 10:01:07 ram -# patch7: fixed =over to add explicit indent level -# patch7: massive renaming Devel::Datum -> Carp::Datum +# See the README file included with the +# distribution for license information. # -# Revision 0.2.1.1 2000/11/12 14:46:27 ram -# patch1: test for definedness in destructor -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -########################################################################### +########################################################################## use strict; require Log::Agent::Driver; diff -Nru liblog-agent-perl-0.307/Agent/Driver/Fork.pm liblog-agent-perl-1.000/Agent/Driver/Fork.pm --- liblog-agent-perl-0.307/Agent/Driver/Fork.pm 2002-03-18 18:11:09.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/Fork.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,26 +1,15 @@ ########################################################################### -# $Id: Fork.pm,v 1.2 2002/03/18 18:11:09 wendigo Exp $ -########################################################################### -# -# Log::Agent::Driver::Fork -# -# RCS Revision: $Revision: 1.2 $ -# Date: $Date: 2002/03/18 18:11:09 $ # -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. +# Fork.pm # -# See the README file included with the -# distribution for license information. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $Log: Fork.pm,v $ -# Revision 1.2 2002/03/18 18:11:09 wendigo -# Removed paranoid test for correct arguments to make() +# See the README file included with the +# distribution for license information. # -# Revision 1.1 2002/03/09 15:47:14 wendigo -# Initial revision -# -# -########################################################################### +########################################################################## package Log::Agent::Driver::Fork; diff -Nru liblog-agent-perl-0.307/Agent/Driver/Mail.pm liblog-agent-perl-1.000/Agent/Driver/Mail.pm --- liblog-agent-perl-0.307/Agent/Driver/Mail.pm 2002-05-12 09:04:09.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/Mail.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ ########################################################################### -# $Id: Mail.pm,v 1.2 2002/05/12 09:04:09 wendigo Exp $ -########################################################################### -# -# Log::Agent::Driver::Mail -# -# RCS Revision: $Revision: 1.2 $ -# Date: $Date: 2002/05/12 09:04:09 $ # -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. +# Mail.pm # -# See the README file included with the -# distribution for license information. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $Log: Mail.pm,v $ -# Revision 1.2 2002/05/12 09:04:09 wendigo -# added optional arguments to Mail::Mailer->new() -# changed format of make() arguments +# See the README file included with the +# distribution for license information. # -# Revision 1.1 2002/04/25 05:38:47 wendigo -# Initial revision -# -# -########################################################################### +########################################################################## package Log::Agent::Driver::Mail; diff -Nru liblog-agent-perl-0.307/Agent/Driver/Silent.pm liblog-agent-perl-1.000/Agent/Driver/Silent.pm --- liblog-agent-perl-0.307/Agent/Driver/Silent.pm 2002-03-09 15:54:27.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/Silent.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,21 +1,15 @@ +########################################################################### # -# $Id: Silent.pm,v 1.1 2002/03/09 15:54:27 wendigo Exp $ +# Silent.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: Silent.pm,v $ -# Revision 1.1 2002/03/09 15:54:27 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; require Log::Agent::Driver; diff -Nru liblog-agent-perl-0.307/Agent/Driver/Syslog.pm liblog-agent-perl-1.000/Agent/Driver/Syslog.pm --- liblog-agent-perl-0.307/Agent/Driver/Syslog.pm 2002-03-09 15:54:27.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver/Syslog.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,15 @@ +########################################################################### # -# $Id: Syslog.pm,v 1.1 2002/03/09 15:54:27 wendigo Exp $ +# Syslog.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Syslog.pm,v $ -# Revision 1.1 2002/03/09 15:54:27 wendigo -# New maintainer -# -# Revision 0.2.1.1 2001/03/31 10:01:13 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Driver.pm liblog-agent-perl-1.000/Agent/Driver.pm --- liblog-agent-perl-0.307/Agent/Driver.pm 2005-10-02 16:55:00.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Driver.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,50 +1,16 @@ ########################################################################### -# $Id: Driver.pm,v 1.5 2005/10/02 16:55:00 wendigo Exp $ -########################################################################### -# -# Log::Agent::Driver -# -# RCS Revision: $Revision: 1.5 $ -# Date: $Date: 2005/10/02 16:55:00 $ -# -# Copyright (C) 1999 Raphael Manfredi. -# Copyright (C) 2002, 2005 Mark Rogaski, mrogaski@cpan.org; -# all rights reserved. -# -# See the README file included with the -# distribution for license information. -# -# $Log: Driver.pm,v $ -# Revision 1.5 2005/10/02 16:55:00 wendigo -# Fixed a minor undef warning in a major kludge. -# -# Revision 1.4 2003/03/08 16:40:27 wendigo -# Merged format and multiline carp changes -# -# Revision 1.3.2.1 2003/03/08 16:17:31 wendigo -# Added support for multiline carp messages. -# -# Revision 1.3 2002/08/02 03:40:50 wendigo -# expanded &Carp::shortmess workaround to include 5.8.0 behavior # -# Revision 1.2 2002/05/10 05:02:56 wendigo -# added a mention of Log::Agent::Driver::Fork +# Driver.pm # -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.2 2001/03/31 10:00:30 ram -# patch7: fixed =over to add explicit indent level -# patch7: massive renaming Devel::Datum -> Carp::Datum +# See the README file included with the +# distribution for license information. # -# Revision 0.2.1.1 2000/11/12 14:45:13 ram -# patch1: undef of $\ is now taken care of by channel classes -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# -########################################################################### +########################################################################## + use strict; ######################################################################## @@ -240,6 +206,7 @@ # chomp($msg); # Remove final "\n" added + if ($msg =~ s/^(.*?)\n//) { my $first = $1; @@ -286,6 +253,10 @@ } $msg = $str->str; + + # Another Carp workaround kludge. + $msg =~ s/ at .*\d\.at / at /; + $msg =~ s/__MESSAGE__/$original/; $str->set_str($msg); diff -Nru liblog-agent-perl-0.307/Agent/File/Native.pm liblog-agent-perl-1.000/Agent/File/Native.pm --- liblog-agent-perl-0.307/Agent/File/Native.pm 2002-03-09 16:08:16.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/File/Native.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ +########################################################################### # -# $Id: Native.pm,v 1.1 2002/03/09 16:08:16 wendigo Exp $ +# Native.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: Native.pm,v $ -# Revision 1.1 2002/03/09 16:08:16 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/03/31 10:01:17 ram -# patch7: fixed =over to add explicit indent level +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.1 2000/11/12 14:46:40 ram -# patch1: reset $\ before printing -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/File_Pool.pm liblog-agent-perl-1.000/Agent/File_Pool.pm --- liblog-agent-perl-0.307/Agent/File_Pool.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/File_Pool.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,21 +1,15 @@ +########################################################################### # -# $Id: File_Pool.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# File_Pool.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: File_Pool.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Formatting.pm liblog-agent-perl-1.000/Agent/Formatting.pm --- liblog-agent-perl-0.307/Agent/Formatting.pm 2005-10-02 16:47:36.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Formatting.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,51 +1,15 @@ ########################################################################### -# $Id: Formatting.pm,v 1.6 2005/10/02 16:47:36 wendigo Exp $ -########################################################################### -# -# Log::Agent::Formatting -# -# RCS Revision: $Revision: 1.6 $ -# Date: $Date: 2005/10/02 16:47:36 $ -# -# Copyright (c) 1999 Raphael Manfredi -# Copyright (c) 2002-2003,2005 Mark Rogaski, mrogaski@cpan.org; -# all rights reserved. -# -# See the README file included with the -# distribution for license information. -# -# $Log: Formatting.pm,v $ -# Revision 1.6 2005/10/02 16:47:36 wendigo -# Fixed formatting behavior for strings that contain "%%" without any other -# formating characters. # -# Revision 1.5 2003/09/27 18:11:16 wendigo -# Modified comments. +# Formatting.pm # -# Revision 1.4 2003/09/27 17:41:41 wendigo -# Modified to use $Log::Agent::OS_Error for substitution of %m instead -# of $!. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 1.3 2003/03/08 16:40:27 wendigo -# Merged format and multiline carp changes +# See the README file included with the +# distribution for license information. # -# Revision 1.2.2.1 2002/12/13 04:25:24 wendigo -# Fixed logxxx() formatting to match sprintf semantics. -# -# Revision 1.2 2002/05/12 07:20:03 wendigo -# Reduced format_args to adjust_msg -# Added prechecks of sprintf() arguments -# -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer -# -# Revision 0.2.1.1 2001/03/13 18:45:06 ram -# patch2: renamed caller_format_args() as tag_format_args() -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -########################################################################### +########################################################################## use strict; require Exporter; diff -Nru liblog-agent-perl-0.307/Agent/Message.pm liblog-agent-perl-1.000/Agent/Message.pm --- liblog-agent-perl-0.307/Agent/Message.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Message.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,15 @@ +########################################################################### # -# $Id: Message.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Message.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Message.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer -# -# Revision 0.2.1.1 2001/03/31 10:01:22 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Prefixer.pm liblog-agent-perl-1.000/Agent/Prefixer.pm --- liblog-agent-perl-0.307/Agent/Prefixer.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Prefixer.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,21 +1,15 @@ +########################################################################### # -# $Id: Prefixer.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Prefixer.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: Prefixer.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Priorities.pm liblog-agent-perl-1.000/Agent/Priorities.pm --- liblog-agent-perl-0.307/Agent/Priorities.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Priorities.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,30 +1,15 @@ +########################################################################### # -# $Id: Priorities.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Priorities.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Priorities.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer -# -# Revision 0.2.1.3 2001/04/11 15:51:55 ram -# patch8: routines are now auto-loaded -# -# Revision 0.2.1.2 2001/03/31 10:02:04 ram -# patch7: fixed off-by-one error in prio_from_level() -# -# Revision 0.2.1.1 2000/11/12 14:46:52 ram -# patch1: fixed indentation -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Stamping.pm liblog-agent-perl-1.000/Agent/Stamping.pm --- liblog-agent-perl-0.307/Agent/Stamping.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Stamping.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,21 +1,15 @@ +########################################################################### # -# $Id: Stamping.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Stamping.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: Stamping.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; require Exporter; diff -Nru liblog-agent-perl-0.307/Agent/Tag/Callback.pm liblog-agent-perl-1.000/Agent/Tag/Callback.pm --- liblog-agent-perl-0.307/Agent/Tag/Callback.pm 2002-03-09 16:10:33.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Tag/Callback.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ +########################################################################### # -# $Id: Callback.pm,v 1.1 2002/03/09 16:10:33 wendigo Exp $ +# Callback.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Callback.pm,v $ -# Revision 1.1 2002/03/09 16:10:33 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/03/31 10:02:20 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2.1.1 2001/03/13 18:45:16 ram -# patch2: created -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Tag/Caller.pm liblog-agent-perl-1.000/Agent/Tag/Caller.pm --- liblog-agent-perl-0.307/Agent/Tag/Caller.pm 2002-03-09 16:09:45.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Tag/Caller.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,32 +1,15 @@ ########################################################################### -# $Id: Caller.pm,v 1.1 2002/03/09 16:09:45 wendigo Exp $ -########################################################################### -# -# Log::Agent::Tag::Caller -# -# RCS Revision: $Revision: 1.1 $ -# Date: $Date: 2002/03/09 16:09:45 $ -# -# Copyright (C) 1999 Raphael Manfredi -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. # -# See the README file included with the -# distribution for license information. +# Caller.pm # -# $Log: Caller.pm,v $ -# Revision 1.1 2002/03/09 16:09:45 wendigo -# Corrected initialization +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.2 2001/03/31 10:02:22 ram -# patch7: fixed =over to add explicit indent level +# See the README file included with the +# distribution for license information. # -# Revision 0.2.1.1 2001/03/13 18:45:18 ram -# patch2: created -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -########################################################################### +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Tag/Priority.pm liblog-agent-perl-1.000/Agent/Tag/Priority.pm --- liblog-agent-perl-0.307/Agent/Tag/Priority.pm 2002-03-09 16:10:33.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Tag/Priority.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,30 +1,15 @@ +########################################################################### # -# $Id: Priority.pm,v 1.1 2002/03/09 16:10:33 wendigo Exp $ +# Priority.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: Priority.pm,v $ -# Revision 1.1 2002/03/09 16:10:33 wendigo -# New maintainer -# -# Revision 0.2.1.3 2001/04/11 15:52:46 ram -# patch8: normalize priority string ("err" -> "error") -# -# Revision 0.2.1.2 2001/03/13 19:15:17 ram -# patch4: manual page was irrelevant -# -# Revision 0.2.1.1 2001/03/13 18:45:20 ram -# patch2: created -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Tag/String.pm liblog-agent-perl-1.000/Agent/Tag/String.pm --- liblog-agent-perl-0.307/Agent/Tag/String.pm 2002-03-09 16:10:33.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Tag/String.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,15 @@ +########################################################################### # -# $Id: String.pm,v 1.1 2002/03/09 16:10:33 wendigo Exp $ +# String.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: String.pm,v $ -# Revision 1.1 2002/03/09 16:10:33 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/03/31 10:02:25 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2.1.1 2001/03/13 18:45:21 ram -# patch2: created -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Tag.pm liblog-agent-perl-1.000/Agent/Tag.pm --- liblog-agent-perl-0.307/Agent/Tag.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Tag.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,15 @@ +########################################################################### # -# $Id: Tag.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Tag.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: Tag.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.2 2001/03/31 10:02:18 ram -# patch7: fixed =over to add explicit indent level -# -# Revision 0.2.1.1 2001/03/13 18:45:12 ram -# patch2: created -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent/Tag_List.pm liblog-agent-perl-1.000/Agent/Tag_List.pm --- liblog-agent-perl-0.307/Agent/Tag_List.pm 2002-03-09 16:01:37.000000000 +0000 +++ liblog-agent-perl-1.000/Agent/Tag_List.pm 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,15 @@ +########################################################################### # -# $Id: Tag_List.pm,v 1.1 2002/03/09 16:01:37 wendigo Exp $ +# Tag_List.pm # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: Tag_List.pm,v $ -# Revision 1.1 2002/03/09 16:01:37 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.1 2001/03/13 18:45:22 ram -# patch2: created -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use strict; diff -Nru liblog-agent-perl-0.307/Agent.pm liblog-agent-perl-1.000/Agent.pm --- liblog-agent-perl-0.307/Agent.pm 2005-10-02 16:57:17.000000000 +0000 +++ liblog-agent-perl-1.000/Agent.pm 2013-08-13 06:26:01.000000000 +0000 @@ -1,18 +1,13 @@ ########################################################################### -# $Id: Agent.pm,v 1.11 2005/10/02 16:57:17 wendigo Exp $ -########################################################################### -# -# Log::Agent # -# RCS Revision: $Revision: 1.11 $ -# Date: $Date: 2005/10/02 16:57:17 $ +# Agent.pm # -# Copyright (C) 1999 Raphael Manfredi. -# Copyright (C) 2002-2003,2005 Mark Rogaski, mrogaski@cpan.org; -# all rights reserved. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# See the README file included with the -# distribution for license information. +# See the README file included with the +# distribution for license information. # ########################################################################### @@ -22,7 +17,7 @@ ######################################################################## package Log::Agent; -use vars qw($VERSION $Driver $Prefix $Trace $Debug $Confess +use vars qw($Driver $Prefix $Trace $Debug $Confess $OS_Error $AUTOLOAD $Caller $Priorities $Tags $DATUM %prio_cache); use AutoLoader; @@ -41,7 +36,8 @@ use Log::Agent::Priorities qw(:LEVELS priority_level level_from_prio); use Log::Agent::Formatting qw(tag_format_args); -$VERSION = '0.307'; +our $VERSION = '1.000'; +$VERSION = eval $VERSION; $Trace = NOTICE; # Default tracing $OS_Error = ''; # Data stash for the $! value @@ -489,10 +485,6 @@ information given at this level must be either handled by all drivers, or may be ignored depending on the application's final choice. -WARNING: THIS INTERFACE IS STILL SOMEWHAT ALPHA AND COULD STILL CHANGE -DEPENDING ON THE FEEDBACK I SHALL GET FROM USERS AND FROM MY OWN -EXPERIENCE USING IT, WITHOUT ANY BACKWARD COMPATIBILITY ASSURANCE. - =head1 PRIORITIES AND LEVEL The C module can use both priorities (as defined by @@ -792,7 +784,20 @@ =head1 AUTHOR -Raphael Manfredi FRaphael_Manfredi@pobox.comE> +Log::Agent was originally authored by Raphael Manfredi FRaphael_Manfredi@pobox.comE> and is currently maintained by Mark Rogaski Fmrogaski@cpan.orgE>. + +=head1 LICENSE + +Copyright (c) 1999-2000 Raphael Manfredi. + +Copyright (c) 2002-2003, 2005, 2013 Mark Rogaski; all rights reserved. + +This module is free software. You can redistribute it and/or +modify it under the terms of the Artistic License 2.0. + +This program is distributed in the hope that it will be useful, +but without any warranty; without even the implied warranty of +merchantability or fitness for a particular purpose. =head1 SEE ALSO diff -Nru liblog-agent-perl-0.307/ChangeLog liblog-agent-perl-1.000/ChangeLog --- liblog-agent-perl-0.307/ChangeLog 2005-10-02 16:58:03.000000000 +0000 +++ liblog-agent-perl-1.000/ChangeLog 1970-01-01 00:00:00.000000000 +0000 @@ -1,280 +0,0 @@ - -Sun Oct 2 12:57:35 EDT 2005 Mark Rogaski - -. Description: 0.3.7 - - Replaced a non-localized modification $^W with "no warnings" so - warnings are no disabled globally. Thanks to Andreas Vierengel for - pointing this out. - - Fixed formatting behavior for strings that contain "%%" without any - other formating characters. Thanks to David Coppit for this one. - - Fixed a minor undef warning in a major kludge in the Agent::Driver - code. - -Mon Feb 2 22:34:28 EST 2004 Mark Rogaski - -. Description: 0.3.6 - - Stripped line endings in common tests to allow tests to succeed - under non-UN*X environments. Also replaced an unnecessary handle - alias with the actual file name in t/file.t. Thanks to Jay Lawrence - and Terrence Brannon for pointing out the test problems. - -Sat Sep 27 13:56:58 EDT 2003 Mark Rogaski - -. Description: 0.3.5 - - Added a wrapper for &AutoLoader::AUTOLOAD to save the value - of $!, which is often clobbered before the substitution of - "%m" by logxxx(). - - Added a META.yml file and disabled autogeneration in Makefile.PL. - -Sat Mar 8 11:43:41 EST 2003 Mark Rogaski - -. Description: 0.3.4 - - Made the logxxx() calls transparent to all (current) - sprintf() formatting patterns. Not all formatting - errors will be caught before passed to sprintf(), but - the obviously malformed ones will be detected. - - Added support for embedded newlines in messages passed to - logcarp() and logxcarp(). - -Mon Sep 30 23:48:20 EDT 2002 Mark Rogaski - -. Description: 0.3.3 - - Removed the problematic t/mail.t test. The test fails due - to problems with redirecting the output of Mail::Mailer in - test mode. - -Thu Aug 1 23:44:06 EDT 2002 Mark Rogaski - -. Description: 0.3.2 - - Expanded &Carp::shortmess workaround in Log::Agent::Driver to - handle behavior under Perl 5.8.0. - -Sun May 12 05:05:46 EDT 2002 Mark Rogaski - -. Description: 0.3.1p2 - - Added prechecks for sprintf() arguments in Log::Agent::Formatting. - - Added argument for Mail::Mailer options in - Log::Agent::Driver::Mail->make(). - -Thu Apr 25 22:51:11 EDT 2002 Mark Rogaski - -. Description: 0.3.1p1 - - Added trial Log::Agent::Driver::Mail for sending log messages - via email. - - Minor changes to version control. - -Mon Mar 18 13:15:38 EST 2002 Mark Rogaski - -. Description: 0.3.1 - - Removed paranoid argument test from Log::Agent::Driver::Fork::make(), - now relying on later failure for invalid argument. Only testing - with ref() now. - -Sat Feb 23 03:14:37 EST 2002 Mark Rogaski - -. Description: 0.3.0 - - Added Log::Agent::Driver::Fork to allow logconfig() to accept - multiple drivers at once. - - Added file permission arguments to Log::Agent::Driver::File and - Log::Agent::Channel::File. - - Corrected "uninitialized value" in Log::Agent::Tag::Caller caused - by undefined $subroutine. - -Wed Apr 11 17:54:44 MEST 2001 Raphael Manfredi - -. Description: - - Added hyperlinks within POD to ease web browsing of manpage. - - Routines from Log::Agent::Priorities are now auto-loaded. - - Normalize priority string ("err" -> "error") when logging it, - Indeed, Log::Agent::Logger uses those routines but makes - strict use of syslog priority names. - -Sat Mar 31 12:03:15 MEST 2001 Raphael Manfredi - -. Description: - - Massive renaming Devel::Datum -> Carp::Datum. - - Fixed =over to add explicit indent level, for POD checkers. - - Fixed off-by-one error in prio_from_level(), which caused - improper conversion for level 10. - -Thu Mar 15 00:42:22 MET 2001 Raphael Manfredi - -. Description: - - Updated version number. - -Thu Mar 15 00:41:24 MET 2001 Raphael Manfredi - -. Description: - - Forgot to handle -prefix in Log::Agent::Channel::Syslog. - - Was wrongly issuing test headers twice when skipping - the t/tag_callback.t tests. - -Tue Mar 13 20:15:37 MET 2001 Raphael Manfredi - -. Description: - - Fixed typo in -priority documentation. - - Manual page for Log::Agent::Tag::Priority was irrelevant. - -Tue Mar 13 19:52:02 MET 2001 Raphael Manfredi - -. Description: - - Added the -priority and -tags options to logconfig() for - including priority string in messages, as well as user-defined - tag strings. - - Test the ${line} variable substitution in caller formatting. - - Fixed bug for *BSD systems, which caused the test suite to fail. - - Class Log::Agent::Caller disappered, and is now replaced by - Log::Agent::Tag::Caller. - - 9 new files, 1 file suppressed. - -Sun Nov 12 15:48:21 MET 2000 Raphael Manfredi - -. Description: - - Version 0.2.1. - - Minor typo fixes. - -Mon Nov 6 20:12:06 MET 2000 Raphael Manfredi - - Version 0.2.0 - - Modularized the logging channels. They have now their own hierarchy - under Log::Agent::Channel. - - Modularized priority, prefixing and timestamping routines, so that - they can be re-used by satellite Log::Agent modules. - - Logging from Log::Agent is now subject to pruning depending on the - logging level set. By default, it is "notice", so that even logsay() - is visible. - -Sun Oct 1 22:05:51 MEST 2000 Raphael Manfredi - -. Description: - - Version 0.1.8 - - Added support for Devel::Datum. This module is still under - development, but is already used in production system. - - New logcarp, logxcarp and logxcroak interface. - - Fixed carpmess to work around Carp's incorrect offseting and - added a test suite for logcarp and logxcarp. - - 5 new files. - -Tue Jul 4 22:03:04 MEST 2000 Raphael Manfredi - -. Description: - - Forgot to increase version number at last patch. - -Tue Jul 4 22:01:55 MEST 2000 Raphael Manfredi - -. Description: - - Was missing default init check before calling logwrite(), - resulting in a call on an undefined referenced in logtrc() - and logdbg() when no explicit configuration was otherwise made. -Tue Jun 20 23:27:14 MEST 2000 Raphael Manfredi - -. Description: - - Added logcroak(), to die from the perspective of the caller. - - New logwrite() routine for upper-level apps, which unconditionally - logs messages to a specified channel. - - Fixed arg processing to avoid dying on 2nd calls to logconfig(). - - Fixed typos in debug init and man page. - - Removed logtrc() and logdbg() from the driver interface: they are - now frozen in Log::Agent, and implemented in terms of logwrite(), - which may be redefined as suited. - -Thu Mar 30 21:25:23 MEST 2000 Raphael Manfredi - -. Description: - - Forgot that /(? - -. Description: - - Added missing 1 for require and fixed typo in pod for - Log::Agent::Caller as was reported by many people. - - All .pm files now have an __END__ marker before the pod - section anyway, so that the Perl parser stops. - - Added support for logfile rotation via Log::Agent::Rotate. - - No longer uses IO::Handle but relies on the new - Log::Agent::File hierarch, to support logfile rotation. - Native Perl files are now handled via Log::Agent::File::Native. - - Suppressed blurb about the Linux bug since we workaround it by - creating a new separate default_exp.t test. - - Three new files. - -Thu Dec 9 18:31:30 MET 1999 Raphael Manfredi - -. Description: - - Wrote two versions of format_args and eval proper one. - Indeed, perl-5.005 versions do not support /(? - -. Description: - - Forgot that /(? -. Description - - Initial revision 0.1. diff -Nru liblog-agent-perl-0.307/MANIFEST liblog-agent-perl-1.000/MANIFEST --- liblog-agent-perl-0.307/MANIFEST 2003-09-27 16:22:58.000000000 +0000 +++ liblog-agent-perl-1.000/MANIFEST 2013-08-13 06:26:01.000000000 +0000 @@ -1,6 +1,6 @@ README The main README file MANIFEST This list -ChangeLog List of changes +changes.pod List of changes Makefile.PL Generic Makefile template Agent.pm Main agent, default interface Agent/Channel.pm Ancestor for all channels @@ -45,4 +45,4 @@ t/priority.t Test -priority setting in logconfig() t/tag_callback.t Test log message tag via callback t/tag_string.t Test log message tag via string -META.yml Module meta-data +META.json Module meta-data diff -Nru liblog-agent-perl-0.307/META.json liblog-agent-perl-1.000/META.json --- liblog-agent-perl-0.307/META.json 1970-01-01 00:00:00.000000000 +0000 +++ liblog-agent-perl-1.000/META.json 2013-08-13 06:26:01.000000000 +0000 @@ -0,0 +1,35 @@ +{ + "abstract" : "A general logging framework", + "author" : [ + "Mark Rogaski " + ], + "dynamic_config" : 0, + "license" : [ + "artistic_2" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : "2" + }, + "name" : "Log-Agent", + "prereqs" : { + "build" : { + "requires" : { + "ExtUtils::MakeMaker" : "0", + "Test::More" : "0" + } + }, + "runtime" : { + "recommends" : { + "Callback" : "0" + }, + "requires" : { + "Tie::Array" : "0" + } + } + }, + "release_status" : "stable", + "version" : "1.000", + "x_installdirs" : "site", + "x_version_from" : "Agent.pm" +} diff -Nru liblog-agent-perl-0.307/META.yml liblog-agent-perl-1.000/META.yml --- liblog-agent-perl-0.307/META.yml 2005-10-02 17:01:28.000000000 +0000 +++ liblog-agent-perl-1.000/META.yml 1970-01-01 00:00:00.000000000 +0000 @@ -1,42 +0,0 @@ ---- #YAML:1.0 -########################################################################### -# $Id: META.yml,v 1.4 2005/10/02 17:01:28 wendigo Exp $ -########################################################################### -# -# META.yml -# -# RCS Revision: $Revision: 1.4 $ -# Date: $Date: 2005/10/02 17:01:28 $ -# -# Copyright (C) 2003,2005 Mark Rogaski, mrogaski@cpan.org; -# all rights reserved. -# -# See the README file included with the -# distribution for license information. -# -# http://module-build.sourceforge.net/META-spec.html -# -# $Log: META.yml,v $ -# Revision 1.4 2005/10/02 17:01:28 wendigo -# *** empty log message *** -# -# Revision 1.3 2003/09/27 18:12:53 wendigo -# Removed unecessary prerequsites. -# -# -########################################################################### - -name: Log-Agent -version: 0.307 -version_from: Agent.pm -license: artistic -distribution_type: module -installdirs: site -requires: - Tie::Array: 0 -recommends: - Callback: 0 -build_requires: - Test: 0 -dynamic_config: 0 - diff -Nru liblog-agent-perl-0.307/Makefile.PL liblog-agent-perl-1.000/Makefile.PL --- liblog-agent-perl-0.307/Makefile.PL 2003-09-27 18:12:53.000000000 +0000 +++ liblog-agent-perl-1.000/Makefile.PL 2013-08-13 06:26:01.000000000 +0000 @@ -1,30 +1,15 @@ -# $Id: Makefile.PL,v 1.4 2003/09/27 18:12:53 wendigo Exp $ +########################################################################### # -# Copyright (C) 1999 Raphael Manfredi -# Copyright (C) 2003 Mark Rogaski, mrogaski@cpan.org; all rights reserved. -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Makefile.PL # -# HISTORY -# $Log: Makefile.PL,v $ -# Revision 1.4 2003/09/27 18:12:53 wendigo -# Removed unecessary prerequsites. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 1.3 2003/09/27 17:54:17 wendigo -# Fixed an simple CVS substitution problem. -# -# Revision 1.2 2003/09/27 16:29:17 wendigo -# Added metafile and disabled automatic metafile generation. -# -# Revision 1.1 2002/03/09 16:28:34 wendigo -# New maintainer -# -# Revision 0.2 2000/11/06 19:30:32 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use ExtUtils::MakeMaker; @@ -32,7 +17,11 @@ NAME => 'Log::Agent', VERSION_FROM => 'Agent.pm', PREREQ_PM => { - 'Tie::Array' => 0 + 'Tie::Array' => 0, + 'Test::More' => 0, + }, + clean => { + FILES => '*~ *.err *.out Agent/*~ t*~ t/*.err t/*.out', }, ($] < 5.008_001 ? () : ( NO_META => 1 )) ); diff -Nru liblog-agent-perl-0.307/README liblog-agent-perl-1.000/README --- liblog-agent-perl-0.307/README 2002-10-01 03:59:40.000000000 +0000 +++ liblog-agent-perl-1.000/README 2013-08-13 06:26:01.000000000 +0000 @@ -1,113 +1,311 @@ - - Log::Agent 0.3.03 - - Copyright (c) 1999-2000 Raphael Manfredi - Copyright (c) 2002 Mark Rogaski - ------------------------------------------------------------------------- - This program is free software; you can redistribute it and/or modify - it under the terms of the Artistic License, a copy of which can be - found with perl. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - Artistic License for more details. ------------------------------------------------------------------------- - - *** This is alpha software -- use at your own risks *** - -Name DSLIP Description Info ------------ ----- -------------------------------------------- ----- -Log::Agent adpOa A general logging framework MROGASKI - +NAME + Log::Agent - logging agent SYNOPSIS - - # - # In reusable modules, log via logxxx() routines - # - - use Log::Agent; - - logsay "creating file"; - open(FILE, ">>file") || logdie "can't append to file: $!"; - .... - close FILE; - logwarn "MANIFEST not found" unless -e 'MANIFEST'; - - # - # In the application, choose a driver for logxxx() messages - # - # Default behaviour: no need to do anything. logxxx() messages will - # be mapped to print, warn or die, as appropriate. - # - # Or customize a driver, as we do here. - # - - use Log::Agent; - require Log::Agent::Driver::File; - - (my $me = $0) =~ s|.*/(.*)|$1|; - - my $driver = Log::Agent::Driver::File->make( - -prefix => $me, - -showpid => 1, - -channels => { - 'error' => '/tmp/output.err', - 'output' => 'log.out', - 'debug' => '../appli.debug', - }, - ); - logconfig(-driver => $driver, -level => 'notice'); - - # - # Alternative: redirect to syslog - # - - use Log::Agent; - require Log::Agent::Driver::Syslog; - - (my $me = $0) =~ s|.*/(.*)|$1|; - - my $driver = Log::Agent::Driver::Syslog->make( - -prefix => $me, - -showpid => 1, - -facility => "user", - -logopt => "ndelay", - ); - logconfig(-driver => $driver, -level => 'debug'); + use Log::Agent; # in all reusable components + logerr "error"; + logtrc "notice:12", "notice that" if ...; + logdie "log and die"; + + use Log::Agent; # in application's main + logconfig(-prefix => $0); # simplest, uses default driver + + use Log::Agent; # another more complex example + require Log::Agent::Driver::File; # logging made to file + logconfig(-driver => + Log::Agent::Driver::File->make( + -prefix => $0, + -showpid => 1, + -channels => { + 'error' => "$0.err", + 'output' => "$0.out", + 'debug' => "$0.dbg", + }, + ) + ); DESCRIPTION + The `Log::Agent' module provides an abstract layer for logging and + tracing, which is independant from the actual method used to physically + perform those activities. It acts as an agent (hence the name) that + collects the requests and delegates processing to a sublayer: the + logging driver. + + The `Log::Agent' module is meant to be used in all reusable components, + since they cannot know in advance how the application which ends up + using them will perform its logging activities: either by emitting + messages on stdout and errors on stderr, or by directing messages to + logfiles, or by using syslog(3). + + The logging interface is common for all the logging drivers, and is + therefore the result of a compromise between many logging schemes: any + information given at this level must be either handled by all drivers, + or may be ignored depending on the application's final choice. + +PRIORITIES AND LEVEL + The `Log::Agent' module can use both priorities (as defined by + syslog(3)) or logging levels, or either, in which case there is an + implicit computation of the missing item (i.e. the level 4, for + instance, corresponds to the "warning" priority, and vice-versa). See + Log::Agent::Priorities for more details. + + A logging level is defined as being a threshold: any level lesser than + or equal to that threshold will be logged. + + At the `Log::Agent' level, it is possible to define a trace level and a + debug level. Only the messages below those levels (inclusive) will be + handed out to the underlying driver for logging. They are used by the + logtrc() and logdbg() routines, respectively. + +CHANNELS + The `Log::Agent' class defines three logging channels, which are + `error', `output' and `debug'. Depending on the driver used for logging, + those channels are ignored (typically with syslog()) or may be + implicitely defined (default logging, i.e. the one achieved by the + `Log::Agent::Driver::Default' driver, remaps `error' and `debug' to + stderr, `output' to stdout). + +INTERFACE + Anywhere a *message* is expected, it can be a single string, or a + printf()-like format string followed by the required arguments. The + special macro `%m' is handled directly by `Log::Agent' and is replaced + by the string version of $!, which is the last error message returned by + the last failing system call. + + NOTE: There should not be any trailing "\n" in the *message* strings, + nor any embededed one, although this is not enforced. Remember that the + main purpose of `Log::Agent' is to specify logging messages in a + standard way! Therefore, most of the time, a "should" should be read as + "must" and "should not" as "must not", which is the strongest + interdiction form available in English, as far as I know. + + Here are valid *message* examples: + + "started since $time" + "started since %s", $time + "fork: %m" + + The follwing logging interface is made available to modules: + + logdbg *priority*, *message* + Debug logging of *message* to the `debug' channel. + + You may specify any priority you want, i.e. a `debug' priority is + not enforced here. You may even specify `"notice:4"' if you wish, to + have the message logged if the debug level is set to 4 or less. If + handed over to syslog(3), the message will nonetheless be logged at + the `notice' priority. + + logtrc *priority*, *message* + Trace logging of *message* to the `output' channel. + + Like logdbg() above, you are not restricted to the `info' priority. + This routine checks the logging level (either explicit as in + `"info:14"' or implicit as in `"notice"') against the trace level. + + logsay *message* + Log the message at the `notice' priority to the `output' channel. + The logging always takes place under the default `-trace' settings, + but only if the routine is called, naturally. This means you can + still say: + + logsay "some trace message" if $verbose; + + and control whether the message is emitted by using some external + configuration for your module (e.g. by adding a -verbose flag to the + creation routine of your class). + + logwarn *message* + Log a warning message at the `warning' priority to the `error' + channel. + + logcarp *message* + Same as logwarn(), but issues a Carp::carp(3) call instead, which + will warn from the perspective of the routine's caller. + + logerr *message* + Log an error message at the `error' priority to the `error' channel. + + logdie *message* + Log a fatal message at the `critical' priority to the `error' + channel, and then dies. + + logconfess *message* + Same as logdie(), but issues a Carp::confess(3) call instead. It is + possible to configure the `Log::Agent' module via the `-confess' + switch to automatically redirect a logdie() to logconfess(), which + is invaluable during unit testing. + + logcroak *message* + Same as logdie(), but issues a Carp::croak(3) call instead. It is + possible to configure the `Log::Agent' module via the `-confess' + switch to automatically redirect a logcroak() to logconfess(), which + is invaluable during unit testing. + + Log::Agent::inited + Returns true when `Log::Agent' was initialized, either explicitely + via a logconfig() or implicitely via any logxxx() call. + + Modules sometimes wish to report errors from the perspective of their + caller's caller, not really their caller. The following interface is + therefore provided: + + logxcarp *offset*, *message* + Same a logcarp(), but with an additional offset to be applied on the + stack. To warn one level above your caller, set it to 1. + + logxcroak *offset*, *message* + Same a logcroak(), but with an additional offset to be applied on + the stack. To report an error one level above your caller, set it to + 1. + + For applications that wish to implement a debug layer on top of + `Log::Agent', the following routine is provided. Note that it is not + imported by default, i.e. it needs to be explicitely mentionned at `use' + time, since it is not meant to be used directly under regular usage. + + logwrite *channel*, *priority*, *message* + Unconditionally write the *message* at the given *priority* on + *channel*. The channel can be one of `debug', `error' or `output'. + + At the application level, one needs to commit once and for all about the + logging scheme to be used. This is done thanks to the logconfig() + routine which takes the following switches, in alphabetical order: + + `-caller' => [ *parameters* ] + Request that caller information (relative to the logxxx() call) be + part of the log message. The given *parameters* are handed off to + the creation routine of `Log::Agent::Tag::Caller' and are documented + there. + + I usually say something like: + + -caller => [ -display => '($sub/$line)', -postfix => 1 ] + + which I find informative enough. On occasion, I found myself using + more complex sequences. See Log::Agent::Tag::Caller. + + `-confess' => *flag* + When true, all logdie() calls will be automatically masqueraded as + logconfess(). + + `-debug' => *priority or level* + Sets the priority threshold (can be expressed as a string or a + number, the string being mapped to a logging level as described + above in PRIORITIES AND LEVEL) for logdbg() calls. + + Calls tagged with a level less than or equal to the given threshold + will pass through, others will return prematurely without logging + anything. + + `-driver' => *driver_object* + This switch defines the driver object to be used, which must be an + heir of the `Log::Agent::Driver' class. See Log::Agent::Driver(3) + for a list of the available drivers. + + `-level' => *priority or level* + Specifies both `-debug' and `-trace' levels at the same time, to a + common value. + + `-prefix' => *name* + Defines the application name which will be pre-pended to all + messages, followed by `": "' (a colon and a space). Using this + switch alone will configure the default driver to use that prefix + (stripped down to its basename component). + + When a driver object is used, the `-prefix' switch is kept at the + `Log::Agent' level only and is not passed to the driver: it is up to + the driver's creation routine to request the `-prefix'. Having this + information in Log::Agent enables the module to die on critical + errors with that error prefix, since it cannot rely on the logging + driver for that, obviously. + + `-priority' => [ *parameters* ] + Request that message priority information be part of the log + message. The given *parameters* are handed off to the creation + routine of `Log::Agent::Tag::Priority' and are documented there. + + I usually say something like: + + -priority => [ -display => '[$priority]' ] + + which will display the whole priority name at the beginning of the + messages, e.g. "[warning]" for a logwarn() or "[error]" for + logerr(). See Log::Agent::Tag::Priority and Log::Agent::Priorities. + + NOTE: Using `-priority' does not prevent the `-duperr' flag of the + file driver to also add its own hardwired prefixing in front of + duplicated error messages. The two options act at a different level. + + `-tags' => [ *list of `Log::Agent::Tag' objects* ] + Specifies user-defined tags to be added to each message. The objects + given here must inherit from `Log::Agent::Tag' and conform to its + interface. See Log::Agent::Tag for details. + + At runtime, well after logconfig() was issued, it may be desirable + to add (or remove) a user tag. Use the `logtags()' routine for this + purpose, and iteract directly with the tag list object. + + For instance, a web module might wish to tag all the messages with a + session ID, information that might not have been available by the + time logconfig() was issued. + + `-trace' => *priority or level* + Same a `-debug' but applies to logsay(), logwarn(), logerr() and + logtrc(). + + When unspecified, `Log::Agent' runs at the "notice" level. + + Additional routines, not exported by default, are: + + logtags + Returns a `Log::Agent::Tag_List' object, which holds all + user-defined tags that are to be added to each log message. + + The initial list of tags is normally supplied by the application at + logconfig() time, via the `-tags' argument. To add or remove tags + after configuration time, one needs direct access to the tag list, + obtained via this routine. See Log::Agent::Tag_List for the + operations that can be performed. + +KNOWN LIMITATIONS + The following limitations exist in this early version. They might be + addressed in future versions if they are perceived as annoying + limitatons instead of being just documented ones. :-) + + * A module which calls logdie() may have its die trapped if called + from within an eval(), but unfortunately, the value of $@ is + unpredictable: it may be prefixed or not depending on the driver + used. This is harder to fix as one might think of at first glance. + + * Some drivers lack customization and hardwire a few things that come + from my personal taste, like the prefixing done when *duperr* is set + in Log::Agent::Driver::File, or the fact that the `debug' and + `stderr' channels are merged as one in the + Log::Agent::Driver::Default driver. + + * When using logcroak() or logconfess(), the place where the call was + made can still be visible when -caller is used, since the addition + of the caller information to the message is done before calling the + logging driver. Is this a problem? + +AUTHOR + Log::Agent was originally authored by Raphael Manfredi + and is currently maintained by Mark Rogaski + . + +LICENSE + Copyright (c) 1999-2000 Raphael Manfredi. + + Copyright (c) 2002-2003, 2005, 2013 Mark Rogaski; all rights reserved. + + This module is free software. You can redistribute it and/or modify it + under the terms of the Artistic License 2.0. + + This program is distributed in the hope that it will be useful, but + without any warranty; without even the implied warranty of + merchantability or fitness for a particular purpose. -Log::Agent is a general logging framework aimed at reusable modules. - -Instead of having modules insist on using their onw logging reporting -(by hardwiring calls to warn() or syslog()) which can conflict with -the final application's choice, one may use logwarn() for instance to -emit a warning. - -It is then up to the application to decide, once and for all, which -logging scheme should be used, by selecting a proper driver. If it -does not select one, the Default driver will be used, which is a simple -mapping of the logwarn() routine to warn(), for instance. - -Or the application may choose to use the Silent driver to make all the -logwarn() calls be ignored, the Syslog driver to redirect logwarn() -to Sys::Syslog, or the File driver to redirect logwarn() to the 'error' -channel defined (by default STDERR), whith proper time stamping. - -The available calls are: - - logdie - logerr - logwarn - logsay - logtrc 'priority', "message" - logdbg 'priority', "message" - -Please read the Log::Agent(3) manpage and the related pages for more -information. - --- Mark Rogaski +SEE ALSO + Log::Agent::Driver(3), Carp(3). diff -Nru liblog-agent-perl-0.307/changes.pod liblog-agent-perl-1.000/changes.pod --- liblog-agent-perl-0.307/changes.pod 1970-01-01 00:00:00.000000000 +0000 +++ liblog-agent-perl-1.000/changes.pod 2013-08-13 06:26:01.000000000 +0000 @@ -0,0 +1,198 @@ +=pod + +=head1 Change Log + +=over 4 + +=item B (2013-08-13) + +Switched to standard X.YYYZZZ versioning. + +Replaced ChangeLog with changes.pod. + +Updated 'clean' arguments in Makefile.PL. + +Updated Agent.pm and replaced old README. + +=item B (2013-08-10) + +Changed license to the Artistic License 2.0. + +Replaced META.yml with META.json. + +Fixed tests for Carp behavior and file permissions. + +=item B (2005-10-02) + +Replaced a non-localized modification $^W with "no warnings" so warnings are no disabled globally. Thanks to Andreas Vierengel for pointing this out. + +Fixed formatting behavior for strings that contain "%%" without any other formating characters. Thanks to David Coppit for this one. + +Fixed a minor undef warning in a major kludge in the Agent::Driver code. + +=item B (2004-02-02) + +Stripped line endings in common tests to allow tests to succeed under non-UN*X environments. Also replaced an unnecessary handle alias with the actual file name in t/file.t. Thanks to Jay Lawrence and Terrence Brannon for pointing out the test problems. + +=item B (2003-09-27) + +Added a wrapper for &AutoLoader::AUTOLOAD to save the value of $!, which is often clobbered before the substitution of "%m" by logxxx(). + +Added a META.yml file and disabled autogeneration in Makefile.PL. + +=item B (2003-03-08) + +Made the logxxx() calls transparent to all (current) sprintf() formatting patterns. Not all formatting errors will be caught before passed to sprintf(), but the obviously malformed ones will be detected. + +Added support for embedded newlines in messages passed to logcarp() and logxcarp(). + +=item B (2002-09-30) + +Removed the problematic t/mail.t test. The test fails due to problems with redirecting the output of Mail::Mailer in test mode. + +=item B (2002-08-01) + +Expanded &Carp::shortmess workaround in Log::Agent::Driver to handle behavior under Perl 5.8.0. + +=item B (2002-05-12) + +Added prechecks for sprintf() arguments in Log::Agent::Formatting. + +Added argument for Mail::Mailer options in Log::Agent::Driver::Mail->make(). + +=item B (2002-04-25) + +Added trial Log::Agent::Driver::Mail for sending log messages via email. + +Minor changes to version control. + +=item B (2002-03-18) + +Removed paranoid argument test from Log::Agent::Driver::Fork::make(), now relying on later failure for invalid argument. Only testing with ref() now. + +=item B (2002-02-23) + +Development and maintenance handed over to Mark Rogaski . + +Added Log::Agent::Driver::Fork to allow logconfig() to accept multiple drivers at once. + +Added file permission arguments to Log::Agent::Driver::File and Log::Agent::Channel::File. + +Corrected "uninitialized value" in Log::Agent::Tag::Caller caused by undefined $subroutine. + +=item B (2001-04-11) + +Added hyperlinks within POD to ease web browsing of manpage. + +Routines from Log::Agent::Priorities are now auto-loaded. + +Normalize priority string ("err" -> "error") when logging it, Indeed, Log::Agent::Logger uses those routines but makes strict use of syslog priority names. + +=item (2001-03-31) + +Massive renaming Devel::Datum -> Carp::Datum. + +Fixed =over to add explicit indent level, for POD checkers. + +Fixed off-by-one error in prio_from_level(), which caused improper conversion for level 10. + +=item (2001-03-15) + +Updated version number. + +=item (2001-03-13) + +Forgot to handle -prefix in Log::Agent::Channel::Syslog. + +Was wrongly issuing test headers twice when skipping the t/tag_callback.t tests. + +=item (2001-03-13) + +Fixed typo in -priority documentation. + +Manual page for Log::Agent::Tag::Priority was irrelevant. + +=item (2001-03-13) + +Added the -priority and -tags options to logconfig() for including priority string in messages, as well as user-defined tag strings. + +Test the ${line} variable substitution in caller formatting. + +Fixed bug for *BSD systems, which caused the test suite to fail. + +Class Log::Agent::Caller disappered, and is now replaced by Log::Agent::Tag::Caller. + +=item B (2000-11-12) + +Minor typo fixes. + +=item B (2000-11-06) + +Modularized the logging channels. They have now their own hierarchy under Log::Agent::Channel. + +Modularized priority, prefixing and timestamping routines, so that they can be re-used by satellite Log::Agent modules. + +Logging from Log::Agent is now subject to pruning depending on the logging level set. By default, it is "notice", so that even logsay() is visible. + +=item B (2000-10-01) + +Added support for Devel::Datum. This module is still under development, but is already used in production system. + +New logcarp, logxcarp and logxcroak interface. + +Fixed carpmess to work around Carp's incorrect offseting and added a test suite for logcarp and logxcarp. + +=item B (2000-07-04) + +Forgot to increase version number at last patch. + +=item B (2000-07-04) + +Was missing default init check before calling logwrite(), resulting in a call on an undefined referenced in logtrc() and logdbg() when no explicit configuration was otherwise made. + +=item B (2000-06-20) + +Added logcroak(), to die from the perspective of the caller. + +New logwrite() routine for upper-level apps, which unconditionally logs messages to a specified channel. + +Fixed arg processing to avoid dying on 2nd calls to logconfig(). + +Fixed typos in debug init and man page. + +Removed logtrc() and logdbg() from the driver interface: they are now frozen in Log::Agent, and implemented in terms of logwrite(), which may be redefined as suited. + +=item B (2000-03-30) + +Forgot that /(? (2000-03-05) + +Added missing 1 for require and fixed typo in pod for Log::Agent::Caller as was reported by many people. + +All .pm files now have an __END__ marker before the pod section anyway, so that the Perl parser stops. + +Added support for logfile rotation via Log::Agent::Rotate. + +No longer uses IO::Handle but relies on the new Log::Agent::File hierarch, to support logfile rotation. Native Perl files are now handled via Log::Agent::File::Native. + +Suppressed blurb about the Linux bug since we workaround it by creating a new separate default_exp.t test. + +=item B (1999-12-09) + +Wrote two versions of format_args and eval proper one. Indeed, perl-5.005 versions do not support /(? (1999-12-08) + +Forgot that /(? + +Initial revision. + +=back + +=cut + diff -Nru liblog-agent-perl-0.307/debian/README.source liblog-agent-perl-1.000/debian/README.source --- liblog-agent-perl-0.307/debian/README.source 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/README.source 1970-01-01 00:00:00.000000000 +0000 @@ -1,6 +0,0 @@ -This package uses quilt to manage all modifications to the upstream -source. Changes are stored in the source package as diffs in -debian/patches and applied during the build. - -See /usr/share/doc/quilt/README.source for a detailed explanation. - diff -Nru liblog-agent-perl-0.307/debian/changelog liblog-agent-perl-1.000/debian/changelog --- liblog-agent-perl-0.307/debian/changelog 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/changelog 2013-08-22 23:08:01.000000000 +0000 @@ -1,3 +1,32 @@ +liblog-agent-perl (1.000-1) unstable; urgency=low + + [ Salvatore Bonaccorso ] + * debian/control: Changed: Replace versioned (build-)dependency on + perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as + permitted by Debian Policy 3.8.3). + + [ Ansgar Burchardt ] + * Update my email address. + * debian/control: Convert Vcs-* fields to Git. + + [ Salvatore Bonaccorso ] + * Change Vcs-Git to canonical URI (git://anonscm.debian.org) + * Change search.cpan.org based URIs to metacpan.org based URIs + + [ Florian Schlichting ] + * Import Upstream version 1.000 (closes: #711575) + * Switch to source format 3.0 (quilt) + * Bump Standards-Version to 3.9.4 (update to copyright-format 1.0, directly + link GPL-1) + * Bump dh compatibility to level 8 (no changes necessary) + * No longer ship redundant README + * Bump upstream copyright years and license version + * Update and forward pod-errors.patch + * Install upstream changelog to /u/s/d instead of as pod and manpage + * Add myself to uploaders and copyright + + -- Florian Schlichting Fri, 23 Aug 2013 00:36:51 +0200 + liblog-agent-perl (0.307-2) unstable; urgency=low [ gregor herrmann ] diff -Nru liblog-agent-perl-0.307/debian/compat liblog-agent-perl-1.000/debian/compat --- liblog-agent-perl-0.307/debian/compat 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/compat 2013-08-22 22:25:36.000000000 +0000 @@ -1 +1 @@ -7 +8 diff -Nru liblog-agent-perl-0.307/debian/control liblog-agent-perl-1.000/debian/control --- liblog-agent-perl-0.307/debian/control 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/control 2013-08-22 22:36:18.000000000 +0000 @@ -2,13 +2,14 @@ Section: perl Priority: optional Maintainer: Debian Perl Group -Uploaders: Jay Bonci , Ansgar Burchardt -Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7) -Build-Depends-Indep: perl (>= 5.6.0-16) -Standards-Version: 3.8.2 -Homepage: http://search.cpan.org/dist/Log-Agent/ -Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblog-agent-perl/ -Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/liblog-agent-perl/ +Uploaders: Jay Bonci , Ansgar Burchardt , + Florian Schlichting +Build-Depends: debhelper (>= 8) +Build-Depends-Indep: perl +Standards-Version: 3.9.4 +Homepage: https://metacpan.org/release/Log-Agent/ +Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/liblog-agent-perl.git +Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/liblog-agent-perl.git Package: liblog-agent-perl Architecture: all diff -Nru liblog-agent-perl-0.307/debian/copyright liblog-agent-perl-1.000/debian/copyright --- liblog-agent-perl-0.307/debian/copyright 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/copyright 2013-08-22 22:36:35.000000000 +0000 @@ -1,32 +1,225 @@ -Format-Specification: - http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196 -Upstream-Maintainer: Mark Rogaski -Upstream-Source: http://search.cpan.org/dist/Log-Agent/ +Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/ Upstream-Name: Log-Agent +Upstream-Contact: Mark Rogaski +Source: https://metacpan.org/release/Log-Agent/ Files: * Copyright: © 1999-2000, Raphael Manfredi - © 2002-2005, Mark Rogaski -License: Artistic + © 2002-2003, 2005, 2013, Mark Rogaski +License: Artistic-2.0 Files: debian/* Copyright: © 2001-2003, tony mancill © 2003-2005, Jay Bonci - © 2009, Ansgar Burchardt -License: Artistic | GPL-1+ + © 2009, Ansgar Burchardt + © 2013, Florian Schlichting +License: Artistic or GPL-1+ License: Artistic - This program is free software; you can redistribute it and/or modify - it under the terms of the Artistic License, which comes with Perl. - On Debian GNU/Linux systems, the complete text of the Artistic License - can be found in `/usr/share/common-licenses/Artistic' + This program is free software; you can redistribute it and/or modify + it under the terms of the Artistic License, which comes with Perl. + . + On Debian systems, the complete text of the Artistic License can be + found in `/usr/share/common-licenses/Artistic'. + +License: Artistic-2.0 + Copyright (c) 2000-2006, The Perl Foundation. + . + Everyone is permitted to copy and distribute verbatim copies of this + license document, but changing it is not allowed. + . + Preamble + . + This license establishes the terms under which a given free software + Package may be copied, modified, distributed, and/or redistributed. + The intent is that the Copyright Holder maintains some artistic + control over the development of that Package while still keeping the + Package available as open source and free software. + . + You are always permitted to make arrangements wholly outside of this + license directly with the Copyright Holder of a given Package. If the + terms of this license do not permit the full use that you propose to + make of the Package, you should contact the Copyright Holder and seek + a different licensing arrangement. + . + Definitions + . + "Copyright Holder" means the individual(s) or organization(s) named in + the copyright notice for the entire Package. + . + "Contributor" means any party that has contributed code or other + material to the Package, in accordance with the Copyright Holder's + procedures. + . + "You" and "your" means any person who would like to copy, distribute, + or modify the Package. + . + "Package" means the collection of files distributed by the Copyright + Holder, and derivatives of that collection and/or of those files. A + given Package may consist of either the Standard Version, or a + Modified Version. + . + "Distribute" means providing a copy of the Package or making it + accessible to anyone else, or in the case of a company or + organization, to others outside of your company or organization. + . + "Distributor Fee" means any fee that you charge for Distributing this + Package or providing support for this Package to another party. It + does not mean licensing fees. + . + "Standard Version" refers to the Package if it has not been modified, + or has been modified only in ways explicitly requested by the + Copyright Holder. + . + "Modified Version" means the Package, if it has been changed, and such + changes were not explicitly requested by the Copyright Holder. + . + "Original License" means this Artistic License as Distributed with the + Standard Version of the Package, in its current version or as it may + be modified by The Perl Foundation in the future. + . + "Source" form means the source code, documentation source, and + configuration files for the Package. + . + "Compiled" form means the compiled bytecode, object code, binary, or + any other form resulting from mechanical transformation or translation + of the Source form. + . + Permission for Use and Modification Without Distribution + . + (1) You are permitted to use the Standard Version and create and use + Modified Versions for any purpose without restriction, provided + that you do not Distribute the Modified Version. + . + Permissions for Redistribution of the Standard Version + . + (2) You may Distribute verbatim copies of the Source form of the + Standard Version of this Package in any medium without + restriction, either gratis or for a Distributor Fee, provided + that you duplicate all of the original copyright notices and + associated disclaimers. At your discretion, such verbatim copies + may or may not include a Compiled form of the Package. + . + (3) You may apply any bug fixes, portability changes, and other + modifications made available from the Copyright Holder. The + resulting Package will still be considered the Standard Version, + and as such will be subject to the Original License. + . + Distribution of Modified Versions of the Package as Source + . + (4) You may Distribute your Modified Version as Source (either gratis + or for a Distributor Fee, and with or without a Compiled form of + the Modified Version) provided that you clearly document how it + differs from the Standard Version, including, but not limited to, + documenting any non-standard features, executables, or modules, + and provided that you do at least ONE of the following: + . + (a) make the Modified Version available to the Copyright Holder + of the Standard Version, under the Original License, so that + the Copyright Holder may include your modifications in the + Standard Version. + (b) ensure that installation of your Modified Version does not + prevent the user installing or running the Standard Version. + In addition, the Modified Version must bear a name that is + different from the name of the Standard Version. + (c) allow anyone who receives a copy of the Modified Version to + make the Source form of the Modified Version available to + others under + (i) the Original License or + (ii) a license that permits the licensee to freely copy, + modify and redistribute the Modified Version using the + same licensing terms that apply to the copy that the + licensee received, and requires that the Source form of + the Modified Version, and of any works derived from it, + be made freely available in that license fees are + prohibited but Distributor Fees are allowed. + . + Distribution of Compiled Forms of the Standard Version or Modified + Versions without the Source + . + (5) You may Distribute Compiled forms of the Standard Version without + the Source, provided that you include complete instructions on + how to get the Source of the Standard Version. Such instructions + must be valid at the time of your distribution. If these + instructions, at any time while you are carrying out such + distribution, become invalid, you must provide new instructions + on demand or cease further distribution. If you provide valid + instructions or cease distribution within thirty days after you + become aware that the instructions are invalid, then you do not + forfeit any of your rights under this license. + . + (6) You may Distribute a Modified Version in Compiled form without + the Source, provided that you comply with Section 4 with respect + to the Source of the Modified Version. + . + Aggregating or Linking the Package + . + (7) You may aggregate the Package (either the Standard Version or + Modified Version) with other packages and Distribute the + resulting aggregation provided that you do not charge a licensing + fee for the Package. Distributor Fees are permitted, and licensing + fees for other components in the aggregation are permitted. The + terms of this license apply to the use and Distribution of the + Standard or Modified Versions as included in the aggregation. + . + (8) You are permitted to link Modified and Standard Versions with + other works, to embed the Package in a larger work of your own, + or to build stand-alone binary or bytecode versions of + applications that include the Package, and Distribute the result + without restriction, provided the result does not expose a direct + interface to the Package. + . + Items That are Not Considered Part of a Modified Version + . + (9) Works (including, but not limited to, modules and scripts) that + merely extend or make use of the Package, do not, by themselves, + cause the Package to be a Modified Version. In addition, such + works are not considered parts of the Package itself, and are + not subject to the terms of this license. + . + General Provisions + . + (10) Any use, modification, and distribution of the Standard or + Modified Versions is governed by this Artistic License. By + using, modifying or distributing the Package, you accept this + license. Do not use, modify, or distribute the Package, if you + do not accept this license. + . + (11) If your Modified Version has been derived from a Modified + Version made by someone other than you, you are nevertheless + required to ensure that your Modified Version complies with + the requirements of this license. + . + (12) This license does not grant you the right to use any trademark, + service mark, tradename, or logo of the Copyright Holder. + . + (13) This license includes the non-exclusive, worldwide, + free-of-charge patent license to make, have made, use, offer to + sell, import and otherwise transfer the Package with respect to + any patent claims licensable by the Copyright Holder that are + necessarily infringed by the Package. If you institute patent + litigation (including a cross-claim or counterclaim) against + any party alleging that the Package constitutes direct or + contributory patent infringement, then this Artistic License to + you shall terminate on the date that such litigation is filed. + . + (14) Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT + HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR + IMPLIED WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, + FITNESS FOR A PARTICULAR PURPOSE, OR NON-INFRINGEMENT ARE + DISCLAIMED TO THE EXTENT PERMITTED BY YOUR LOCAL LAW. UNLESS + REQUIRED BY LAW, NO COPYRIGHT HOLDER OR CONTRIBUTOR WILL BE + LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL + DAMAGES ARISING IN ANY WAY OUT OF THE USE OF THE PACKAGE, EVEN + IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. License: GPL-1+ - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 1, or (at your option) - any later version. - On Debian GNU/Linux systems, the complete text of the GNU General - Public License can be found in `/usr/share/common-licenses/GPL' + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + . + On Debian systems, the complete text of version 1 of the GNU General + Public License can be found in `/usr/share/common-licenses/GPL-1'. diff -Nru liblog-agent-perl-0.307/debian/docs liblog-agent-perl-1.000/debian/docs --- liblog-agent-perl-0.307/debian/docs 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/docs 1970-01-01 00:00:00.000000000 +0000 @@ -1 +0,0 @@ -README diff -Nru liblog-agent-perl-0.307/debian/patches/pod-errors.patch liblog-agent-perl-1.000/debian/patches/pod-errors.patch --- liblog-agent-perl-0.307/debian/patches/pod-errors.patch 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/patches/pod-errors.patch 2013-08-22 22:58:25.000000000 +0000 @@ -11,9 +11,10 @@ Log::Agent::Driver::Fork: Around line 322: You forgot a ’=back’ before ’=head1’ ---- liblog-agent-perl.orig/Agent/Driver/Default.pm -+++ liblog-agent-perl/Agent/Driver/Default.pm -@@ -191,6 +191,8 @@ +Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=88040 +--- a/Agent/Driver/Default.pm ++++ b/Agent/Driver/Default.pm +@@ -179,6 +179,8 @@ $prefix. When no prefix is configured, the first letter of each logged string will be uppercased. @@ -22,9 +23,9 @@ =head1 CHANNELS The C, C and C channels all go to STDERR. ---- liblog-agent-perl.orig/Agent/Driver/Fork.pm -+++ liblog-agent-perl/Agent/Driver/Fork.pm -@@ -319,6 +319,8 @@ +--- a/Agent/Driver/Fork.pm ++++ b/Agent/Driver/Fork.pm +@@ -308,6 +308,8 @@ distributes them to the drivers in @drivers. The arguments must be the return value of the make() call for the client drivers. @@ -33,3 +34,63 @@ =head1 NOTES Many thanks go to Daniel Lundin and Jason May who proposed this module +--- a/Agent.pm ++++ b/Agent.pm +@@ -469,7 +469,7 @@ + =head1 DESCRIPTION + + The C module provides an abstract layer for logging and +-tracing, which is independant from the actual method used to physically ++tracing, which is independent from the actual method used to physically + perform those activities. It acts as an agent (hence the name) that + collects the requests and delegates processing to a sublayer: the + logging driver. +@@ -599,7 +599,7 @@ + + =item Log::Agent::inited + +-Returns true when C was initialized, either explicitely via ++Returns true when C was initialized, either explicitly via + a logconfig() or implicitely via any logxxx() call. + + =back +@@ -624,7 +624,7 @@ + + For applications that wish to implement a debug layer on top of + C, the following routine is provided. Note that it is not +-imported by default, i.e. it needs to be explicitely mentionned at C ++imported by default, i.e. it needs to be explicitly mentionned at C + time, since it is not meant to be used directly under regular usage. + + =over 4 +--- a/Agent/Driver.pm ++++ b/Agent/Driver.pm +@@ -559,7 +559,7 @@ + =back + + The following routine is B. There is no way in Perl to freeze a routine, +-i.e. to explicitely forbid any redefinition, so this is an informal ++i.e. to explicitly forbid any redefinition, so this is an informal + notification: + + =over 4 +--- a/Agent/Tag/Priority.pm ++++ b/Agent/Tag/Priority.pm +@@ -134,7 +134,7 @@ + =item C<-level> => I + + This parameter is internally added by C when computing the +-priority tag, since only it knows the level of the current messsage. ++priority tag, since only it knows the level of the current message. + + =item C<-postfix> => I + +@@ -144,7 +144,7 @@ + =item C<-priority> => I + + This parameter is internally added by C when computing the +-priority tag, since only it knows the priority of the current messsage. ++priority tag, since only it knows the priority of the current message. + + =item C<-separator> => I + diff -Nru liblog-agent-perl-0.307/debian/rules liblog-agent-perl-1.000/debian/rules --- liblog-agent-perl-0.307/debian/rules 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/rules 2013-08-22 23:08:01.000000000 +0000 @@ -1,3 +1,13 @@ #!/usr/bin/make -f + +PACKAGE = $(shell dh_listpackages) +TMP = $(CURDIR)/debian/$(PACKAGE) + %: - dh --with quilt $@ + dh $@ + +override_dh_installchangelogs: + pod2text changes.pod Changes + dh_installchangelogs + $(RM) $(TMP)/usr/share/perl5/Log/changes.pod + $(RM) $(TMP)/usr/share/man/man3/Log::changes.3pm diff -Nru liblog-agent-perl-0.307/debian/source/format liblog-agent-perl-1.000/debian/source/format --- liblog-agent-perl-0.307/debian/source/format 1970-01-01 00:00:00.000000000 +0000 +++ liblog-agent-perl-1.000/debian/source/format 2013-10-22 08:07:14.792572421 +0000 @@ -0,0 +1 @@ +3.0 (quilt) diff -Nru liblog-agent-perl-0.307/debian/watch liblog-agent-perl-1.000/debian/watch --- liblog-agent-perl-0.307/debian/watch 2013-10-22 08:07:14.000000000 +0000 +++ liblog-agent-perl-1.000/debian/watch 2013-01-27 17:54:28.000000000 +0000 @@ -1,2 +1,2 @@ version=3 -http://search.cpan.org/dist/Log-Agent/ .*/Log-Agent-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ +https://metacpan.org/release/Log-Agent/ .*/Log-Agent-v?(\d[\d.-]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip)$ diff -Nru liblog-agent-perl-0.307/t/caller.t liblog-agent-perl-1.000/t/caller.t --- liblog-agent-perl-0.307/t/caller.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/caller.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,26 +1,16 @@ #!./perl - -# -# $Id: caller.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: caller.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +########################################################################### # -# Revision 0.2.1.1 2001/03/13 18:45:44 ram -# patch2: test the ${line} variable substitution +# caller.t # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## print "1..10\n"; diff -Nru liblog-agent-perl-0.307/t/carp.pl liblog-agent-perl-1.000/t/carp.pl --- liblog-agent-perl-0.307/t/carp.pl 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/carp.pl 2013-08-13 06:15:13.000000000 +0000 @@ -1,21 +1,16 @@ +#!perl +########################################################################### # -# $Id: carp.pl,v 1.1 2002/03/09 16:16:55 wendigo Exp $ +# carp.pl # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: carp.pl,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## print "1..11\n"; diff -Nru liblog-agent-perl-0.307/t/carp_default.t liblog-agent-perl-1.000/t/carp_default.t --- liblog-agent-perl-0.307/t/carp_default.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/carp_default.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,23 +1,16 @@ -#!./perl - -# -# $Id: carp_default.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +#!perl +########################################################################### # -# HISTORY -# $Log: carp_default.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +# carp_default.t # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use Log::Agent; diff -Nru liblog-agent-perl-0.307/t/carp_file.t liblog-agent-perl-1.000/t/carp_file.t --- liblog-agent-perl-0.307/t/carp_file.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/carp_file.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,23 +1,17 @@ #!./perl +########################################################################### # -# $Id: carp_file.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ +# carp_file.t # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: carp_file.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## use Log::Agent; require Log::Agent::Driver::File; diff -Nru liblog-agent-perl-0.307/t/carp_fork.t liblog-agent-perl-1.000/t/carp_fork.t --- liblog-agent-perl-0.307/t/carp_fork.t 2002-02-23 06:25:49.000000000 +0000 +++ liblog-agent-perl-1.000/t/carp_fork.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,25 +1,16 @@ #!perl ########################################################################### -# $Id: carp_fork.t,v 1.1 2002/02/23 06:25:49 wendigo Exp $ -########################################################################### -# -# carp_fork.t -# -# RCS Revision: $Revision: 1.1 $ -# Date: $Date: 2002/02/23 06:25:49 $ # -# Copyright (C) 1999 Raphael Manfredi. -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. +# carp_fork.t # -# See the README file included with the -# distribution for license information. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $Log: carp_fork.t,v $ -# Revision 1.1 2002/02/23 06:25:49 wendigo -# Initial revision +# See the README file included with the +# distribution for license information. # -# -########################################################################### +########################################################################## use Log::Agent; require Log::Agent::Driver::Fork; diff -Nru liblog-agent-perl-0.307/t/carp_multiline.t liblog-agent-perl-1.000/t/carp_multiline.t --- liblog-agent-perl-0.307/t/carp_multiline.t 2003-09-27 15:19:47.000000000 +0000 +++ liblog-agent-perl-1.000/t/carp_multiline.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,33 +1,16 @@ #!./perl ########################################################################### -# $Id: carp_multiline.t,v 1.2 2003/09/27 15:19:47 wendigo Exp $ -########################################################################### -# -# format.t -# -# RCS Revision: $Revision: 1.2 $ -# Date: $Date: 2003/09/27 15:19:47 $ -# -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. # -# See the README file included with the -# distribution for license information. +# carp_multiline.t # -# $Log: carp_multiline.t,v $ -# Revision 1.2 2003/09/27 15:19:47 wendigo -# Tests for multi-line error messages. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 1.1.2.2 2003/03/08 16:18:01 wendigo -# *** empty log message *** +# See the README file included with the +# distribution for license information. # -# Revision 1.1.2.1 2002/12/13 04:54:42 wendigo -# Code to test multiline error messages. -# -# Revision 1.1.2.1 2002/12/13 04:24:46 wendigo -# Code to test logxxx formatting. -# -# -########################################################################### +########################################################################## use Test; use Carp; @@ -38,6 +21,7 @@ eval { croak "Yo\nla\ntengo" }; $die1 = $@; eval { logcroak "Yo\nla\ntengo" }; $die2 = $@; $die1 =~ s/^\s+eval.*\n//m; +$die1 =~ s/(at .* line \d+)\./$1/m; # I'm not gonna bother. ok($die1 eq $die2); diff -Nru liblog-agent-perl-0.307/t/carp_silent.t liblog-agent-perl-1.000/t/carp_silent.t --- liblog-agent-perl-0.307/t/carp_silent.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/carp_silent.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,23 +1,16 @@ #!./perl - -# -# $Id: carp_silent.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +########################################################################### # -# HISTORY -# $Log: carp_silent.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +# carp_silent.t # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## print "1..2\n"; diff -Nru liblog-agent-perl-0.307/t/code.pl liblog-agent-perl-1.000/t/code.pl --- liblog-agent-perl-0.307/t/code.pl 2004-02-02 04:11:27.000000000 +0000 +++ liblog-agent-perl-1.000/t/code.pl 2013-08-13 06:15:13.000000000 +0000 @@ -1,25 +1,16 @@ +#!perl +########################################################################### # -# $Id: code.pl,v 1.2 2004/02/02 04:11:27 wendigo Exp $ +# code.pl # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# HISTORY -# $Log: code.pl,v $ -# Revision 1.2 2004/02/02 04:11:27 wendigo -# Stripped line endings from common tests to allow success on non-UN*X -# platforms. -# -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer -# -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. -# -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## sub ok { my ($num, $ok) = @_; diff -Nru liblog-agent-perl-0.307/t/common.pl liblog-agent-perl-1.000/t/common.pl --- liblog-agent-perl-0.307/t/common.pl 2004-02-02 04:11:27.000000000 +0000 +++ liblog-agent-perl-1.000/t/common.pl 2013-08-13 06:15:13.000000000 +0000 @@ -1,31 +1,16 @@ +#!perl ########################################################################### -# $Id: common.pl,v 1.3 2004/02/02 04:11:27 wendigo Exp $ -########################################################################### -# -# common.pl -# -# RCS Revision: $Revision: 1.3 $ -# Date: $Date: 2004/02/02 04:11:27 $ -# -# Copyright (C) 1999 Raphael Manfredi. -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. # -# See the README file included with the -# distribution for license information. +# common.pl # -# $Log: common.pl,v $ -# Revision 1.3 2004/02/02 04:11:27 wendigo -# Stripped line endings from common tests to allow success on non-UN*X -# platforms. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 1.2 2002/05/12 08:55:53 wendigo -# added precompilation of regexp in contains() +# See the README file included with the +# distribution for license information. # -# Revision 1.1 2002/02/23 06:26:10 wendigo -# Initial revision -# -# -########################################################################### +########################################################################## sub contains ($$) { my ($file, $pattern) = @_; diff -Nru liblog-agent-perl-0.307/t/default.t liblog-agent-perl-1.000/t/default.t --- liblog-agent-perl-0.307/t/default.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/default.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,23 +1,16 @@ #!./perl - -# -# $Id: default.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. +########################################################################### # -# HISTORY -# $Log: default.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +# default.t # -# Revision 0.2 2000/11/06 19:30:34 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## print "1..4\n"; diff -Nru liblog-agent-perl-0.307/t/default_exp.t liblog-agent-perl-1.000/t/default_exp.t --- liblog-agent-perl-0.307/t/default_exp.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/default_exp.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,23 +1,16 @@ #!./perl - -# -# $Id: default_exp.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ +########################################################################### # -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: default_exp.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +# default_exp.t # -# Revision 0.2 2000/11/06 19:30:34 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## # # This is the continuation of t/default.t. diff -Nru liblog-agent-perl-0.307/t/file.t liblog-agent-perl-1.000/t/file.t --- liblog-agent-perl-0.307/t/file.t 2004-02-03 03:37:02.000000000 +0000 +++ liblog-agent-perl-1.000/t/file.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,37 +1,18 @@ -#!./perl +#!perl ########################################################################### -# $Id: file.t,v 0.4 2004/02/03 03:37:02 wendigo Exp $ -########################################################################### -# -# file.t -# -# RCS Revision: $Revision: 0.4 $ -# Date: $Date: 2004/02/03 03:37:02 $ -# -# Copyright (C) 1999 Raphael Manfredi -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. -# -# See the README file included with the -# distribution for license information. # -# $Log: file.t,v $ -# Revision 0.4 2004/02/03 03:37:02 wendigo -# Replaced unnecessary file alias with actual file name. +# file.t # -# Revision 0.3 2002/02/23 06:28:56 wendigo -# Maintainer change -# - improved output redirection -# - switched to ok() from Test.pm +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 0.2.1.1 2001/03/13 18:46:06 ram -# patch2: fixed bug for *BSD systems +# See the README file included with the +# distribution for license information. # -# Revision 0.2 2000/11/06 19:30:34 ram -# Baseline for second Alpha release. -# -########################################################################### +########################################################################## -use Test; +use Test::More; use Log::Agent; require Log::Agent::Driver::File; require 't/common.pl'; @@ -113,8 +94,8 @@ -prefix => 'me', -stampfmt => sub { 'DATE' }, -channels => { - 'error' => 't/file.err', - 'output' => 't/file.out' + 'error' => 't/file2.err', + 'output' => 't/file2.out' }, ); logconfig(-driver => $driver); @@ -126,16 +107,16 @@ ok($@); -ok(contains("t/file.err", '^DATE me: error$')); -ok(! contains("t/file.out", 'error')); -ok(contains("t/file.out", '^DATE me: message$')); -ok(! contains("t/file.err", 'message')); -ok(contains("t/file.err", '^DATE me: warning$')); -ok(! contains("t/file.out", 'warning')); -ok(contains("t/file.err", '^DATE me: die$')); -ok(! contains("t/file.out", 'die')); +ok(contains("t/file2.err", '^DATE me: error$')); +ok(! contains("t/file2.out", 'error')); +ok(contains("t/file2.out", '^DATE me: message$')); +ok(! contains("t/file2.err", 'message')); +ok(contains("t/file2.err", '^DATE me: warning$')); +ok(! contains("t/file2.out", 'warning')); +ok(contains("t/file2.err", '^DATE me: die$')); +ok(! contains("t/file2.out", 'die')); -unlink 't/file.out', 't/file.err'; +unlink 't/file2.out', 't/file2.err'; undef $Log::Agent::Driver; # Cheat open(FILE, '>>t/file.err'); # Needs appending, for OpenBSD @@ -144,7 +125,7 @@ -prefix => 'me', -magic_open => 1, -channels => { - 'error' => '>>t/file.err', + 'error' => '>>t/file3.err', }, ); logconfig(-driver => $driver); @@ -155,141 +136,146 @@ close FILE; ok(! -e '>&main::FILE'); -ok(-e 't/file.err'); -ok(contains("t/file.err", 'me: error$')); -ok(contains("t/file.err", 'me: should go to')); +ok(-e 't/file3.err'); +ok(contains("t/file3.err", 'me: error$')); +ok(contains("t/file3.err", 'me: should go to')); -unlink 't/file.err'; +unlink 't/file3.err'; # # Test file permissions # -$driver = Log::Agent::Driver::File->make( - -file => 'file.out', - -perm => 0666 -); -logconfig(-driver => $driver); -logsay "HONK HONK!"; - -ok(perm_ok('file.out', 0666)); +SKIP: { -unlink 'file.out'; - -$driver = Log::Agent::Driver::File->make( - -file => 'file.out', - -perm => 0644 -); -logconfig(-driver => $driver); -logsay "HONK HONK!"; - -ok(perm_ok('file.out', 0644)); - -unlink 'file.out'; - -$driver = Log::Agent::Driver::File->make( - -file => 'file.out', - -perm => 0640 -); -logconfig(-driver => $driver); -logsay "HONK HONK!"; - -ok(perm_ok('file.out', 0640)); - -# -# and with magic_open -# - -unlink 'file.out'; -$driver = Log::Agent::Driver::File->make( - -file => 'file.out', - -perm => 0666, - -magic_open => 1 -); -logconfig(-driver => $driver); -logsay "HONK HONK!"; - -ok(perm_ok('file.out', 0666)); - -unlink 'file.out'; - -$driver = Log::Agent::Driver::File->make( - -file => 'file.out', - -perm => 0644, - -magic_open => 1 -); -logconfig(-driver => $driver); -logsay "HONK HONK!"; - -ok(perm_ok('file.out', 0644)); - -unlink 'file.out'; - -$driver = Log::Agent::Driver::File->make( - -file => 'file.out', - -perm => 0640, - -magic_open => 1 -); -logconfig(-driver => $driver); -logsay "HONK HONK!"; - -ok(perm_ok('file.out', 0640)); - -unlink 'file.out'; - -# -# Test file permissions with multiple channels -# - -$driver = Log::Agent::Driver::File->make( - -channels => { - output => 'file.out', - error => 'file.err', - debug => 'file.dbg' - }, - -chanperm => { - output => 0666, - error => 0644, - debug => 0640 - } -); -logconfig(-driver => $driver, -debug => 10); -logsay "HONK HONK!"; -logerr "HONK HONK!"; -logdbg 'debug', "HONK HONK!"; - -ok(perm_ok('file.out', 0666)); -ok(perm_ok('file.err', 0644)); -ok(perm_ok('file.dbg', 0640)); - -unlink 'file.out', 'file.err', 'file.dbg'; - -# -# and, again, with magic_open -# - -$driver = Log::Agent::Driver::File->make( - -channels => { - output => 'file.out', - error => 'file.err', - debug => 'file.dbg' - }, - -chanperm => { - output => 0666, - error => 0644, - debug => 0640 - }, - -magic_open => 1 -); -logconfig(-driver => $driver, -debug => 10); -logsay "HONK HONK!"; -logerr "HONK HONK!"; -logdbg 'debug', "HONK HONK!"; - -ok(perm_ok('file.out', 0666)); -ok(perm_ok('file.err', 0644)); -ok(perm_ok('file.dbg', 0640)); + skip "file mode not supported on Win32.", 12 if $^O eq 'MSWin32'; -unlink 'file.out', 'file.err', 'file.dbg'; + $driver = Log::Agent::Driver::File->make( + -file => 't/file4.out', + -perm => 0666 + ); + logconfig(-driver => $driver); + logsay "HONK HONK!"; + + ok(perm_ok('t/file4.out', 0666)); + + unlink 't/file4.out'; + + $driver = Log::Agent::Driver::File->make( + -file => 't/file5.out', + -perm => 0644 + ); + logconfig(-driver => $driver); + logsay "HONK HONK!"; + + ok(perm_ok('t/file5.out', 0644)); + + unlink 't/file5.out'; + + $driver = Log::Agent::Driver::File->make( + -file => 't/file6.out', + -perm => 0640 + ); + logconfig(-driver => $driver); + logsay "HONK HONK!"; + + ok(perm_ok('t/file6.out', 0640)); + + unlink 't/file6.out'; + + # + # and with magic_open + # + + $driver = Log::Agent::Driver::File->make( + -file => 't/file7.out', + -perm => 0666, + -magic_open => 1 + ); + logconfig(-driver => $driver); + logsay "HONK HONK!"; + + ok(perm_ok('t/file7.out', 0666)); + + unlink 't/file7.out'; + + $driver = Log::Agent::Driver::File->make( + -file => 't/file8.out', + -perm => 0644, + -magic_open => 1 + ); + logconfig(-driver => $driver); + logsay "HONK HONK!"; + + ok(perm_ok('t/file8.out', 0644)); + + unlink 't/file8.out'; + + $driver = Log::Agent::Driver::File->make( + -file => 't/file9.out', + -perm => 0640, + -magic_open => 1 + ); + logconfig(-driver => $driver); + logsay "HONK HONK!"; + + ok(perm_ok('t/file9.out', 0640)); + + unlink 't/file9.out'; + + # + # Test file permissions with multiple channels + # + + $driver = Log::Agent::Driver::File->make( + -channels => { + output => 't/file10.out', + error => 't/file10.err', + debug => 't/file10.dbg' + }, + -chanperm => { + output => 0666, + error => 0644, + debug => 0640 + } + ); + logconfig(-driver => $driver, -debug => 10); + logsay "HONK HONK!"; + logerr "HONK HONK!"; + logdbg 'debug', "HONK HONK!"; + + ok(perm_ok('t/file10.out', 0666)); + ok(perm_ok('t/file10.err', 0644)); + ok(perm_ok('t/file10.dbg', 0640)); + + unlink 't/file10.out', 't/file10.err', 't/file10.dbg'; + + # + # and, again, with magic_open + # + + $driver = Log::Agent::Driver::File->make( + -channels => { + output => 't/file11.out', + error => 't/file11.err', + debug => 't/file11.dbg' + }, + -chanperm => { + output => 0666, + error => 0644, + debug => 0640 + }, + -magic_open => 1 + ); + logconfig(-driver => $driver, -debug => 10); + logsay "HONK HONK!"; + logerr "HONK HONK!"; + logdbg 'debug', "HONK HONK!"; + + ok(perm_ok('t/file11.out', 0666)); + ok(perm_ok('t/file11.err', 0644)); + ok(perm_ok('t/file11.dbg', 0640)); + unlink 't/file11.out', 't/file11.err', 't/file11.dbg'; +} diff -Nru liblog-agent-perl-0.307/t/fork.t liblog-agent-perl-1.000/t/fork.t --- liblog-agent-perl-0.307/t/fork.t 2002-02-23 06:25:20.000000000 +0000 +++ liblog-agent-perl-1.000/t/fork.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,24 +1,16 @@ #!perl ########################################################################### -# $Id: fork.t,v 1.1 2002/02/23 06:25:20 wendigo Exp $ -########################################################################### -# -# fork.t -# -# RCS Revision: $Revision: 1.1 $ -# Date: $Date: 2002/02/23 06:25:20 $ # -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. +# fork.t # -# See the README file included with the -# distribution for license information. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $Log: fork.t,v $ -# Revision 1.1 2002/02/23 06:25:20 wendigo -# Initial revision +# See the README file included with the +# distribution for license information. # -# -########################################################################### +########################################################################## use strict; use Test; diff -Nru liblog-agent-perl-0.307/t/format.t liblog-agent-perl-1.000/t/format.t --- liblog-agent-perl-0.307/t/format.t 2005-10-02 16:47:29.000000000 +0000 +++ liblog-agent-perl-1.000/t/format.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,38 +1,16 @@ -#!./perl +#!perl ########################################################################### -# $Id: format.t,v 1.4 2005/10/02 16:47:29 wendigo Exp $ -########################################################################### -# -# format.t -# -# RCS Revision: $Revision: 1.4 $ -# Date: $Date: 2005/10/02 16:47:29 $ -# -# Copyright (C) 2002 Mark Rogaski, mrogaski@cpan.org; all rights reserved. -# -# See the README file included with the -# distribution for license information. # -# $Log: format.t,v $ -# Revision 1.4 2005/10/02 16:47:29 wendigo -# Fixed formatting behavior for strings that contain "%%" without any other -# formating characters. +# format.t # -# Revision 1.3 2003/09/27 15:27:00 wendigo -# Saved $! before testing %m since perl-5.8.1 seems to modify $! during -# a call to logerr(). +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# Revision 1.2 2003/09/27 15:19:24 wendigo -# Tests for sprintf-like formatting. +# See the README file included with the +# distribution for license information. # -# Revision 1.1.2.2 2003/03/08 16:18:01 wendigo -# *** empty log message *** -# -# Revision 1.1.2.1 2002/12/13 04:24:46 wendigo -# Code to test logxxx formatting. -# -# -########################################################################### +########################################################################## use Test; use Log::Agent; diff -Nru liblog-agent-perl-0.307/t/priority.t liblog-agent-perl-1.000/t/priority.t --- liblog-agent-perl-0.307/t/priority.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/priority.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,27 +1,16 @@ -#!./perl - -# -# $Id: priority.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: priority.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +#!perl +########################################################################### # -# Revision 0.2.1.1 2001/03/13 18:48:06 ram -# patch2: fixed bug for *BSD systems -# patch2: created +# priority.t # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## print "1..5\n"; diff -Nru liblog-agent-perl-0.307/t/tag_callback.t liblog-agent-perl-1.000/t/tag_callback.t --- liblog-agent-perl-0.307/t/tag_callback.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/tag_callback.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,29 +1,16 @@ -#!./perl - -# -# $Id: tag_callback.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: tag_callback.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer -# -# Revision 0.2.1.2 2001/03/14 23:40:42 ram -# patch5: was wrongly issuing test headers twice when skipping +#!perl +########################################################################### # -# Revision 0.2.1.1 2001/03/13 18:48:52 ram -# patch2: created +# tag_callback.t # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## require 't/code.pl'; sub ok; diff -Nru liblog-agent-perl-0.307/t/tag_string.t liblog-agent-perl-1.000/t/tag_string.t --- liblog-agent-perl-0.307/t/tag_string.t 2002-03-09 16:16:55.000000000 +0000 +++ liblog-agent-perl-1.000/t/tag_string.t 2013-08-13 06:15:13.000000000 +0000 @@ -1,26 +1,16 @@ -#!./perl - -# -# $Id: tag_string.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $ -# -# Copyright (c) 1999, Raphael Manfredi -# -# You may redistribute only under the terms of the Artistic License, -# as specified in the README file that comes with the distribution. -# -# HISTORY -# $Log: tag_string.t,v $ -# Revision 1.1 2002/03/09 16:16:55 wendigo -# New maintainer +#!perl +########################################################################### # -# Revision 0.2.1.1 2001/03/13 18:49:29 ram -# patch2: created +# tag_string.t # -# Revision 0.2 2000/11/06 19:30:33 ram -# Baseline for second Alpha release. +# Copyright (C) 1999 Raphael Manfredi. +# Copyright (C) 2002-2003, 2005, 2013 Mark Rogaski, mrogaski@cpan.org; +# all rights reserved. # -# $EndLog$ +# See the README file included with the +# distribution for license information. # +########################################################################## print "1..2\n";