r68813 - in /trunk/libtest-sharedfork-perl: Changes META.yml README.mkdn debian/changelog debian/copyright inc/Pod/Markdown.pm lib/Test/SharedFork.pm
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Wed Feb 16 19:45:38 UTC 2011
Author: periapt-guest
Date: Wed Feb 16 19:45:31 2011
New Revision: 68813
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68813
Log:
IGNORE-VERSION: 0.16-1
* New upstream release
* Updated copyright
Modified:
trunk/libtest-sharedfork-perl/Changes
trunk/libtest-sharedfork-perl/META.yml
trunk/libtest-sharedfork-perl/README.mkdn
trunk/libtest-sharedfork-perl/debian/changelog
trunk/libtest-sharedfork-perl/debian/copyright
trunk/libtest-sharedfork-perl/inc/Pod/Markdown.pm
trunk/libtest-sharedfork-perl/lib/Test/SharedFork.pm
Modified: trunk/libtest-sharedfork-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/Changes?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/Changes (original)
+++ trunk/libtest-sharedfork-perl/Changes Wed Feb 16 19:45:31 2011
@@ -1,4 +1,8 @@
Revision history for Perl extension Test::SharedFork
+
+0.16
+
+ - doc tweaks
0.15
Modified: trunk/libtest-sharedfork-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/META.yml?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/META.yml (original)
+++ trunk/libtest-sharedfork-perl/META.yml Wed Feb 16 19:45:31 2011
@@ -23,4 +23,4 @@
perl: 5.8.0
resources:
license: http://dev.perl.org/licenses/
-version: 0.15
+version: 0.16
Modified: trunk/libtest-sharedfork-perl/README.mkdn
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/README.mkdn?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/README.mkdn (original)
+++ trunk/libtest-sharedfork-perl/README.mkdn Wed Feb 16 19:45:31 2011
@@ -22,7 +22,8 @@
# DESCRIPTION
Test::SharedFork is utility module for Test::Builder.
-This module makes forking test!
+
+This module makes L<fork(2)> safety in your test case.
This module merges test count with parent process & child process.
Modified: trunk/libtest-sharedfork-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/debian/changelog?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/debian/changelog (original)
+++ trunk/libtest-sharedfork-perl/debian/changelog Wed Feb 16 19:45:31 2011
@@ -1,3 +1,12 @@
+libtest-sharedfork-perl (0.16-1) UNRELEASED; urgency=low
+
+ IGNORE-VERSION: 0.16-1
+
+ * New upstream release
+ * Updated copyright
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Wed, 16 Feb 2011 19:46:08 +0000
+
libtest-sharedfork-perl (0.15-1) unstable; urgency=low
* New upstream release
Modified: trunk/libtest-sharedfork-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/debian/copyright?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/debian/copyright (original)
+++ trunk/libtest-sharedfork-perl/debian/copyright Wed Feb 16 19:45:31 2011
@@ -22,7 +22,7 @@
Files: debian/*
Copyright: 2010, Jonathan Yu <jawnsy at cpan.org>
- 2010, Nicholas Bamber <nicholas at periapt.co.uk>
+ 2010-2011, Nicholas Bamber <nicholas at periapt.co.uk>
2010, gregor herrmann <gregoa at debian.org>
License: Artistic or GPL-1+
Modified: trunk/libtest-sharedfork-perl/inc/Pod/Markdown.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/inc/Pod/Markdown.pm?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/inc/Pod/Markdown.pm (original)
+++ trunk/libtest-sharedfork-perl/inc/Pod/Markdown.pm Wed Feb 16 19:45:31 2011
@@ -4,7 +4,9 @@
use warnings;
package Pod::Markdown;
-our $VERSION = '1.100860';
+BEGIN {
+ $Pod::Markdown::VERSION = '1.103491';
+}
# ABSTRACT: Convert POD to Markdown
use parent qw(Pod::Parser);
@@ -73,8 +75,7 @@
}
sub _clean_text {
- my $parser = shift;
- my $text = shift;
+ my $text = $_[1];
my @trimmed = grep { $_; } split(/\n/, $text);
return wantarray ? @trimmed : join("\n", @trimmed);
}
@@ -90,8 +91,10 @@
if ($command =~ m{head(\d)}xms) {
my $level = $1;
+ $paragraph = $parser->interpolate($paragraph, $line_num);
+
# the headers never are indented
- $parser->_save(sprintf '%s %s', '#' x $level, $paragraph);
+ $parser->_save($parser->format_header($level, $paragraph));
if ($level == 1) {
if ($paragraph =~ m{NAME}xmsi) {
$data->{searching} = 'title';
@@ -124,7 +127,7 @@
}
sub verbatim {
- my ($parser, $paragraph, $line_num) = @_;
+ my ($parser, $paragraph) = @_;
$parser->_save($paragraph);
}
@@ -151,8 +154,7 @@
}
sub interior_sequence {
- my ($parser, $seq_command, $seq_argument, $pod_seq) = @_;
- my $data = $parser->_private;
+ my ($seq_command, $seq_argument, $pod_seq) = @_[1..3];
my %interiors = (
'I' => sub { return '_' . $_[1] . '_' }, # italic
'B' => sub { return '__' . $_[1] . '__' }, # bold
@@ -160,7 +162,7 @@
'F' => sub { return '`' . $_[1] . '`' }, # system path
'S' => sub { return '`' . $_[1] . '`' }, # code
'E' => sub {
- my ($seq, $charname) = @_;
+ my $charname = $_[1];
return '<' if $charname eq 'lt';
return '>' if $charname eq 'gt';
return '|' if $charname eq 'verbar';
@@ -178,20 +180,32 @@
}
sub _resolv_link {
- my ($cmd, $arg, $pod_seq) = @_;
- if ($arg =~ m{^http|ftp}xms) {
-
- # direct link to a URL
- return sprintf '<%s>', $arg;
- } elsif ($arg =~ m{^(\w+(::\w+)*)$}) {
- return "[$1](http://search.cpan.org/perldoc?$1)";
+ my ($cmd, $arg) = @_;
+ my $text = $arg =~ s"^(.+?)\|"" ? $1 : '';
+
+ if ($arg =~ m{^http|ftp}xms) { # direct link to a URL
+ $text ||= $arg;
+ return sprintf '[%s](%s)', $text, $arg;
+ } elsif ($arg =~ m{^/(.*)$}) {
+ $text ||= $1;
+ $text = $1;
+ return "[$text](\#pod_$1)";
+ } elsif ($arg =~ m{^(\w+(?:::\w+)*)$}) {
+ $text ||= $1;
+ return "[$text](http://search.cpan.org/perldoc?$1)";
} else {
return sprintf '%s<%s>', $cmd, $arg;
}
}
+
+sub format_header {
+ my ($level, $paragraph) = @_[1,2];
+ sprintf '%s %s', '#' x $level, $paragraph;
+}
+
1;
__END__
-#line 282
-
+#line 312
+
Modified: trunk/libtest-sharedfork-perl/lib/Test/SharedFork.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-sharedfork-perl/lib/Test/SharedFork.pm?rev=68813&op=diff
==============================================================================
--- trunk/libtest-sharedfork-perl/lib/Test/SharedFork.pm (original)
+++ trunk/libtest-sharedfork-perl/lib/Test/SharedFork.pm Wed Feb 16 19:45:31 2011
@@ -2,7 +2,7 @@
use strict;
use warnings;
use base 'Test::Builder::Module';
-our $VERSION = '0.15';
+our $VERSION = '0.16';
use Test::Builder 0.32; # 0.32 or later is needed
use Test::SharedFork::Scalar;
use Test::SharedFork::Array;
@@ -151,7 +151,8 @@
=head1 DESCRIPTION
Test::SharedFork is utility module for Test::Builder.
-This module makes forking test!
+
+This module makes L<fork(2)> safety in your test case.
This module merges test count with parent process & child process.
More information about the Pkg-perl-cvs-commits
mailing list