r61750 - in /trunk/liblog-dispatch-perl: SIGNATURE debian/changelog debian/compat debian/control debian/copyright debian/rules debian/source/ debian/source/format t/01-basic.t t/pod.t

emhn-guest at users.alioth.debian.org emhn-guest at users.alioth.debian.org
Thu Aug 19 15:20:37 UTC 2010


Author: emhn-guest
Date: Thu Aug 19 15:20:20 2010
New Revision: 61750

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61750
Log:
* New upstream release (Closes: #576912).
* Take over for the Debian Perl Group:
  http://lists.debian.org/debian-devel/2010/08/msg00530.html   
  http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=576912#20
  <jonas.genannt at capi2name.de> moved to Uploaders; upgrade Standards
  Version; added myself as Uploader; remove versioned Depends and
  versioned Build-Depends.
* debian/control, debian/rules, debian/compat: upgrade to DH7.
* Upgrade to source format 3.0 (quilt).
* debian/copyright: upgrade to parsable format, updated copyright
  dates and added packaging copyright.

Added:
    trunk/liblog-dispatch-perl/debian/source/
    trunk/liblog-dispatch-perl/debian/source/format
Modified:
    trunk/liblog-dispatch-perl/SIGNATURE
    trunk/liblog-dispatch-perl/debian/changelog
    trunk/liblog-dispatch-perl/debian/compat
    trunk/liblog-dispatch-perl/debian/control
    trunk/liblog-dispatch-perl/debian/copyright
    trunk/liblog-dispatch-perl/debian/rules
    trunk/liblog-dispatch-perl/t/01-basic.t
    trunk/liblog-dispatch-perl/t/pod.t

Modified: trunk/liblog-dispatch-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/SIGNATURE?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/SIGNATURE (original)
+++ trunk/liblog-dispatch-perl/SIGNATURE Thu Aug 19 15:20:20 2010
@@ -14,37 +14,40 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 10af9b36bcdf140e347614c1c344c2190fd36d56 Build.PL
-SHA1 9a0927be4f1d588c6054df6a9f355407272a1b22 Changes
+SHA1 0b40e31e5aa7897061c3b40b25fb3419ce606a02 Build.PL
+SHA1 a36cb618256d67c3ec03f0d6a63fd5597d0bf9c2 Changes
 SHA1 9314b01360d8fa0f7086c869922610426a217b62 LICENSE
-SHA1 cebabc71760d407dc6d72828d89b7fc22fe9f5cc MANIFEST
-SHA1 98b4a2f605b6b5a296ae7661ea30a2cc64e1cbf7 META.yml
-SHA1 caec11721b1b9c53869fcd183495a87cdd542f92 Makefile.PL
+SHA1 c8f51e4da8c93a00848f3f40787cf5a0deb36169 MANIFEST
+SHA1 abff06cebb2b742bc9fdeeed766a7cc8e0e7fcc4 META.yml
+SHA1 e1ebdb49d4b2162947f652093fd06778f1b50689 Makefile.PL
 SHA1 2d097f5f3357916264bcc3b3879e33dff3548926 README
-SHA1 5eb30b320fa2538d32eb05a2ff826d151dbc2f76 lib/Log/Dispatch.pm
-SHA1 6161939df8614ace61a277ce0acfc4605226281c lib/Log/Dispatch/ApacheLog.pm
-SHA1 514812f938038fc53e5618f41dc9184d157ee16c lib/Log/Dispatch/Base.pm
-SHA1 ecf336a520baf36c26743c89a286d489f12a2142 lib/Log/Dispatch/Email.pm
-SHA1 8722d846696bd96bf8a61fb069d5fb75ba28ec79 lib/Log/Dispatch/Email/MIMELite.pm
-SHA1 87f9ba0f8124bd6ee1e50b5724ee48f02fdba48d lib/Log/Dispatch/Email/MailSend.pm
-SHA1 6e060e4adf792a23e83b30b3fe1b933789e5f17c lib/Log/Dispatch/Email/MailSender.pm
-SHA1 22c4f9ea910ef46178010b19f2cdc612815bf5b2 lib/Log/Dispatch/Email/MailSendmail.pm
-SHA1 12a4c0776d8ccf46dd7f8a36b4174b940cbc396c lib/Log/Dispatch/File.pm
-SHA1 017ab84efea71013a5f42e7d3efce2ccdb4bf8de lib/Log/Dispatch/File/Locked.pm
-SHA1 3515f9e3220446df6e1090cc05d39cf38958df1a lib/Log/Dispatch/Handle.pm
-SHA1 5bc1f6b663014885637c50c501ea8ea3a02e5c99 lib/Log/Dispatch/Null.pm
-SHA1 6283f6832592047ac56784d6ef19f205cd009d14 lib/Log/Dispatch/Output.pm
-SHA1 8a54a23c6ed926c904fcd9d742a19656b42bd159 lib/Log/Dispatch/Screen.pm
-SHA1 4ba112844ed70caccc8e861d606ca59bea8edad8 lib/Log/Dispatch/Syslog.pm
+SHA1 4547c1719b1b2c55d7e5b4f07abbf59f8bf2c1ae lib/Log/Dispatch.pm
+SHA1 5f2abcd12dfdf8c962d78bf4270f2ae4a350e41a lib/Log/Dispatch/ApacheLog.pm
+SHA1 24ba5263dd003cab8b0702d00c7b68340efaf3cf lib/Log/Dispatch/Base.pm
+SHA1 1950537d68aff200accf410c02a15e8967ad07a0 lib/Log/Dispatch/Email.pm
+SHA1 bc7a3c4e3360ba76bf4d7a67a0989c973df827b2 lib/Log/Dispatch/Email/MIMELite.pm
+SHA1 7ce5b7d2a1d83cff6ac469382e9d524faee159e0 lib/Log/Dispatch/Email/MailSend.pm
+SHA1 2b69f197abe6c1b2d8ccf0bea53affbc7c300e8d lib/Log/Dispatch/Email/MailSender.pm
+SHA1 9ebb72a425a26f782f2f2cecd86fe82860f4a96b lib/Log/Dispatch/Email/MailSendmail.pm
+SHA1 65b4942ae0c7ffb121f36a2747b053e4cf1ede85 lib/Log/Dispatch/File.pm
+SHA1 4bc98d4ec74e6a3b10a24b3aab23c083b9ee4daf lib/Log/Dispatch/File/Locked.pm
+SHA1 6a2d4b5f5e9b5eda58f04409dcd3964524f3a4ce lib/Log/Dispatch/Handle.pm
+SHA1 95f2cd3160c97b3b04dcd3adefbf5aaa9bd7b3e4 lib/Log/Dispatch/Null.pm
+SHA1 9d2615399b9398addafc70b8cf700b402043e853 lib/Log/Dispatch/Output.pm
+SHA1 959a4103d872138b62d31f4e1a84905e269caf3b lib/Log/Dispatch/Screen.pm
+SHA1 07edb4eb43c477c9d363a760e50019e899211b2b lib/Log/Dispatch/Syslog.pm
 SHA1 5fac1ae2b685cce1becdbd319ce7d94ccf20bfa2 t/00-compile.t
-SHA1 25f4895bebf5fa5b87f37d6bc3302da06fbacb6c t/01-basic.t
-SHA1 9ade2293d6e5ea77d94532132c89cd205ea85ed7 t/kwalitee.t
-SHA1 6d7bda2886cf3e075da91f24b7dae599a2582db8 t/pod-coverage.t
-SHA1 cec881e89926d320475f9de2b7fad02c2169f510 t/pod.t
+SHA1 b1a993910cb32d8ec5e6d811f0dd7d7a6a0b9fad t/01-basic.t
+SHA1 ecfad11185d4eb0288d168edaabd738eb2fdf5cf t/03-short-syntax.t
+SHA1 0e555408316a444690f2bfd3c7e83b38d28283cf t/kwalitee.t
+SHA1 af91d084ac5e2f4fe9809099b4cb9babfe022f26 t/lib/Log/Dispatch/TestUtil.pm
+SHA1 2ec17d32d3174ace64e4503c47eb0fa709264698 t/pod-coverage.t
+SHA1 d757328f50247ecdfce1ba097418cf7b426dc12e t/pod.t
+SHA1 deb0387daf79837a912f33c35bb2498f18ba68b5 t/versions-match.t
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.9 (GNU/Linux)
 
-iEYEARECAAYFAkkZz28ACgkQ3Or3ZzQuifOItACeLqtBFCqBJ9OURDCI/7X9NHim
-mO4AnjsA5JQeXx4OU7kGDxqYPiD8ujNh
-=gq5u
+iEYEARECAAYFAkq5RxwACgkQIgMCsV8qvRJ3MQCePQccflRMJ8WT9LPtwHdvkkus
+D+AAnjTSDv8ZPjSyyvpqQ0ln2g2NzlFt
+=JIUa
 -----END PGP SIGNATURE-----

Modified: trunk/liblog-dispatch-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/debian/changelog?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/debian/changelog (original)
+++ trunk/liblog-dispatch-perl/debian/changelog Thu Aug 19 15:20:20 2010
@@ -1,17 +1,24 @@
-liblog-dispatch-perl (2.22-2) UNRELEASED; urgency=low
+liblog-dispatch-perl (2.26-1) UNRELEASED; urgency=low
 
-  * Non-maintainer upload.
-  * NOT RELEASED YET
-  * Take over for the Debian Perl Group
+  * New upstream release (Closes: #576912).
+  * Take over for the Debian Perl Group:
+    http://lists.debian.org/debian-devel/2010/08/msg00530.html   
+    http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=576912#20
   * debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
     field (source stanza); Homepage field (source stanza);
     ${misc:Depends} to Depends: field. Changed: Maintainer set to Debian
     Perl Group <pkg-perl-maintainers at lists.alioth.debian.org> (was:
     Jonas Genannt <jonas.genannt at capi2name.de>); Jonas Genannt
-    <jonas.genannt at capi2name.de> moved to Uploaders.
+    <jonas.genannt at capi2name.de> moved to Uploaders; upgrade Standards
+    Version; added myself as Uploader; remove versioned Depends and
+    versioned Build-Depends.
+  * debian/control, debian/rules, debian/compat: upgrade to DH7.
+  * Upgrade to source format 3.0 (quilt).
+  * debian/copyright: upgrade to parsable format, updated copyright
+    dates and added packaging copyright.
   * Add debian/watch.
 
- -- Ernesto Hernández-Novich (USB) <emhn at usb.ve>  Thu, 19 Aug 2010 10:28:10 -0430
+ -- Ernesto Hernández-Novich (USB) <emhn at usb.ve>  Thu, 19 Aug 2010 10:34:53 -0430
 
 liblog-dispatch-perl (2.22-1) unstable; urgency=low
 

Modified: trunk/liblog-dispatch-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/debian/compat?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/debian/compat (original)
+++ trunk/liblog-dispatch-perl/debian/compat Thu Aug 19 15:20:20 2010
@@ -1,1 +1,1 @@
-4
+7

Modified: trunk/liblog-dispatch-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/debian/control?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/debian/control (original)
+++ trunk/liblog-dispatch-perl/debian/control Thu Aug 19 15:20:20 2010
@@ -1,18 +1,22 @@
 Source: liblog-dispatch-perl
 Section: perl
 Priority: optional
-Build-Depends: debhelper (>= 4.0.0)
-Build-Depends-Indep: perl (>= 5.6.0-17), libparams-validate-perl (>= 0.15), libmodule-build-perl, libfile-find-rule-perl
+Build-Depends: debhelper (>= 7)
+Build-Depends-Indep: perl, libparams-validate-perl,
+ libmodule-build-perl, libfile-find-rule-perl,
+ libtest-pod-perl, libtest-pod-coverage-perl,
+ libtest-kwalitee-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Jonas Genannt <jonas.genannt at capi2name.de>
-Standards-Version: 3.8.0
+Uploaders: Jonas Genannt <jonas.genannt at capi2name.de>,
+ Ernesto Hernández-Novich (USB) <emhn at usb.ve>
+Standards-Version: 3.9.1
 Homepage: http://search.cpan.org/dist/Log-Dispatch/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblog-dispatch-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/liblog-dispatch-perl/
 
 Package: liblog-dispatch-perl
 Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libparams-validate-perl (>= 0.15)
+Depends: ${perl:Depends}, libparams-validate-perl
 Description: Dispatches messages to multiple Log::Dispatch::* objects
  This module manages a set of Log::Dispatch::* objects, allowing you to
  add and remove output objects as desired.

Modified: trunk/liblog-dispatch-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/debian/copyright?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/debian/copyright (original)
+++ trunk/liblog-dispatch-perl/debian/copyright Thu Aug 19 15:20:20 2010
@@ -1,16 +1,31 @@
-This is the debian package for the Log::Dispatch module.
-It was created by Ivan Kohler <ivan-debian at 420.am> using dh-make-perl.
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
+Author: Dave Rolsky, <autarch at urth.org>.
+Maintainer: Dave Rolsky, <autarch at urth.org>.
+Source: http://search.cpan.org/dist/Log-Dispatch/
+Name: Log-Dispatch
 
-It was downloaded from http://search.cpan.org/~drolsky/
+Files: *
+Copyright: 1999-2009, Dave Rolsky
+License: Artistic or GPL-1+
 
-Dave Rolsky, <autarch at urth.org>.
-Copyright (c) 1999-2003 Dave Rolsky
-All rights reserved.
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
+Files: debian/*
+Copyright: 2001-2004, Ivan Kohler <ivan-debian at 420.am>,
+ 2005-2008, Jonas Genannt <jonas.genannt at capi2name.de>,
+ 2010, Ernesto Hernández-Novich (USB) <emhn at usb.ve>
+License: Artistic or GPL-1+
 
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License.  On Debian GNU/Linux systems, the complete text of the
-GNU General Public License can be found in `/usr/share/common-licenses/GPL'
-and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
+License: Artistic
+ This program is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'.
 
+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 version 1 of the
+ General Public License can be found in `/usr/share/common-licenses/GPL-1'.

Modified: trunk/liblog-dispatch-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/debian/rules?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/debian/rules (original)
+++ trunk/liblog-dispatch-perl/debian/rules Thu Aug 19 15:20:20 2010
@@ -1,66 +1,4 @@
 #!/usr/bin/make -f
-#-*- makefile -*-
 
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-#for noninteractive installs
-export PERL_MM_USE_DEFAULT=1
-
-PACKAGE=$(shell dh_listpackages)
-
-ifndef PERL
-PERL = /usr/bin/perl
-endif
-
-ifndef DESTDIR
-DESTDIR=..
-endif
-TMP     = $(CURDIR)/debian/$(PACKAGE)
-
-build: build-stamp
-build-stamp:
-	dh_testdir
-	$(PERL) Build.PL installdirs=vendor
-	./Build test
-	touch build-stamp
-
-clean:
-	dh_testdir
-	dh_testroot
-	rm -f build-stamp
-ifeq (Build,$(wildcard Build))
-	./Build clean
-endif
-	rm -rf ./Build _build
-	dh_clean
-
-install: 
-	dh_testdir
-	dh_testroot
-	dh_clean -k
-	dh_installdirs
-	./Build install destdir=$(TMP)
-	find debian/liblog-dispatch-perl -type f -name .packlist | xargs rm -f
-	find debian/liblog-dispatch-perl/usr/lib/ -empty -delete
-
-# Build architecture-dependent files here.
-binary-arch: build install
-# We have nothing to do by default.
-
-# Build architecture-independent files here.
-binary-indep: build install
-	dh_testdir
-	dh_testroot
-	dh_installdocs README
-	dh_installchangelogs Changes
-	dh_compress
-	dh_fixperms
-	dh_installdeb
-	dh_perl 
-	dh_gencontrol
-	dh_md5sums
-	dh_builddeb --destdir=$(DESTDIR)
-
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary
+%:
+	dh $@

Added: trunk/liblog-dispatch-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/debian/source/format?rev=61750&op=file
==============================================================================
--- trunk/liblog-dispatch-perl/debian/source/format (added)
+++ trunk/liblog-dispatch-perl/debian/source/format Thu Aug 19 15:20:20 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)

Modified: trunk/liblog-dispatch-perl/t/01-basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/t/01-basic.t?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/t/01-basic.t (original)
+++ trunk/liblog-dispatch-perl/t/01-basic.t Thu Aug 19 15:20:20 2010
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 146;
+use Test::More tests => 165;
 
 use File::Spec;
 use File::Temp qw( tempdir );
@@ -20,10 +20,8 @@
 }
 
 my %TestConfig;
-if ( -d '.svn' )
-{
-    %TestConfig = ( email_address => 'autarch at urth.org',
-                  );
+if (my $email_address = $ENV{LOG_DISPATCH_TEST_EMAIL}) {
+    %TestConfig = ( email_address => $email_address );
 }
 
 use Log::Dispatch::File;
@@ -336,7 +334,7 @@
 # Comprehensive test of new methods that match level names
 {
     my %levels = map { $_ => $_ } ( qw( debug info notice warning error critical alert emergency ) );
-    @levels{ qw( err crit emerg ) } = ( qw( error critical emergency ) );
+    @levels{ qw( warn err crit emerg ) } = ( qw( warning error critical emergency ) );
 
     foreach my $allowed_level ( qw( debug info notice warning error critical alert emergency ) )
     {
@@ -349,7 +347,7 @@
                                                     max_level => $allowed_level,
                                                   ) );
 
-        foreach my $test_level ( qw( debug info notice warning err
+        foreach my $test_level ( qw( debug info notice warn warning err
                                      error crit critical alert emerg emergency ) )
         {
             $string = '';
@@ -604,6 +602,21 @@
     $dispatch->add( Log::Dispatch::String->new( name => 'handle',
                                                 string => \$string,
                                                 min_level => 'debug',
+                                                newline => 1,
+                                              ) );
+    $dispatch->debug('hello');
+    $dispatch->debug('goodbye');
+
+    is( $string, "hello\ngoodbye\n", 'added newlines');
+}
+
+{
+    my $string;
+
+    my $dispatch = Log::Dispatch->new;
+    $dispatch->add( Log::Dispatch::String->new( name => 'handle',
+                                                string => \$string,
+                                                min_level => 'debug',
                                               ) );
 
     eval
@@ -617,7 +630,7 @@
 
     ok( $e, 'died when calling log_and_die()' );
     like( $e, qr{this is my message}, 'error contains expected message' );
-    like( $e, qr{01-basic\.t line 611}, 'error croaked' );
+    like( $e, qr{01-basic\.t line 6\d\d}, 'error croaked' );
 
     is( $string, 'this is my message', 'message is logged' );
 
@@ -637,6 +650,82 @@
     is( $string, 'croak', 'message is logged' );
 }
 
+{
+    my $string;
+
+    my $dispatch = Log::Dispatch->new;
+    $dispatch->add( Log::Dispatch::String->new( name => 'handle',
+                                                string => \$string,
+                                                min_level => 'debug',
+                                              ) );
+
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'foo', 'first test w/o callback');
+
+    $string = '';
+    $dispatch->add_callback(sub { return 'bar' });
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'bar', 'second call, callback overrides message');
+}
+
+{
+    my $string;
+
+    my $dispatch = Log::Dispatch->new(
+        callbacks => sub { return 'baz' },
+    );
+    $dispatch->add( Log::Dispatch::String->new( name => 'handle',
+                                                string => \$string,
+                                                min_level => 'debug',
+                                              ) );
+
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'baz', 'first test gets orig callback result');
+
+    $string = '';
+    $dispatch->add_callback(sub { return 'bar' });
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'bar', 'second call, callback overrides message');
+}
+
+{
+    my $string;
+
+    my $dispatch = Log::Dispatch->new;
+    $dispatch->add( Log::Dispatch::String->new( name => 'handle',
+                                                string => \$string,
+                                                min_level => 'debug',
+                                              ) );
+
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'foo', 'first test w/o callback');
+
+    $string = '';
+    $dispatch->add_callback(sub { return 'bar' });
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'bar', 'second call, callback overrides message');
+}
+
+{
+    my $string;
+
+    my $dispatch = Log::Dispatch->new(
+        callbacks => sub { return 'baz' },
+    );
+    $dispatch->add( Log::Dispatch::String->new( name => 'handle',
+                                                string => \$string,
+                                                min_level => 'debug',
+                                              ) );
+
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'baz', 'first test gets orig callback result');
+
+    $string = '';
+    $dispatch->add_callback(sub { return 'bar' });
+    $dispatch->log(level => 'debug', message => 'foo');
+    is($string, 'bar', 'second call, callback overrides message');
+}
+
 SKIP:
 {
     skip 'Cannot do syslog tests without Sys::Syslog 0.16+', 2
@@ -668,6 +757,14 @@
                [ [ 'INFO', 'Foo' ] ],
                'passed message to syslog' );
 }
+
+{
+    # Test defaults
+    my $dispatch = Log::Dispatch::Null->new( min_level => 'debug' );
+    like( $dispatch->name, qr/anon/, 'generated anon name' );
+    is( $dispatch->max_level, 'emergency', 'max_level is emergency' );
+}
+
 
 package Log::Dispatch::String;
 

Modified: trunk/liblog-dispatch-perl/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-dispatch-perl/t/pod.t?rev=61750&op=diff
==============================================================================
--- trunk/liblog-dispatch-perl/t/pod.t (original)
+++ trunk/liblog-dispatch-perl/t/pod.t Thu Aug 19 15:20:20 2010
@@ -5,7 +5,7 @@
 
 
 plan skip_all => 'This test is only run for the module author'
-    unless -d '.svn' || $ENV{IS_MAINTAINER};
+    unless -d '.hg' || $ENV{IS_MAINTAINER};
 
 eval "use Test::Pod 1.14";
 plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;




More information about the Pkg-perl-cvs-commits mailing list