r9155 - in /branches/upstream/libtk-pod-perl/current: Changes META.yml Makefile.PL Pod.pm Pod/FindPods.pm Pod/Text.pm
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Fri Nov 9 23:25:32 UTC 2007
Author: gregoa-guest
Date: Fri Nov 9 23:25:31 2007
New Revision: 9155
URL: http://svn.debian.org/wsvn/?sc=1&rev=9155
Log:
[svn-upgrade] Integrating new upstream version, libtk-pod-perl (0.9937)
Modified:
branches/upstream/libtk-pod-perl/current/Changes
branches/upstream/libtk-pod-perl/current/META.yml
branches/upstream/libtk-pod-perl/current/Makefile.PL
branches/upstream/libtk-pod-perl/current/Pod.pm
branches/upstream/libtk-pod-perl/current/Pod/FindPods.pm
branches/upstream/libtk-pod-perl/current/Pod/Text.pm
Modified: branches/upstream/libtk-pod-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtk-pod-perl/current/Changes?rev=9155&op=diff
==============================================================================
--- branches/upstream/libtk-pod-perl/current/Changes (original)
+++ branches/upstream/libtk-pod-perl/current/Changes Fri Nov 9 23:25:31 2007
@@ -1,4 +1,12 @@
History for Tk::Pod
+
+version 0.9937
+ o Make sure the displayed Pods in the tree match the actual @INC path
+ o Tk::Pod::Text Pod should now contain all Pod constructs as examples
+ o bugfix: fixed architecture path component stripping
+ o bugfix: fixed core/site/vendor coloring if installvendorlib/arch not
+ defined at all
+ o warning fix in Tk::Pod::FindPods for perl 5.005
version 0.9936
o Tk::More now used fixedFont/FixedFont for setting font via option db
Modified: branches/upstream/libtk-pod-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtk-pod-perl/current/META.yml?rev=9155&op=diff
==============================================================================
--- branches/upstream/libtk-pod-perl/current/META.yml (original)
+++ branches/upstream/libtk-pod-perl/current/META.yml Fri Nov 9 23:25:31 2007
@@ -2,7 +2,7 @@
version: 1.3
url: http://module-build.sourceforge.net/META-spec-v1.3.html
name: Tk-Pod
-version: 0.9936
+version: 0.9937
abstract: Pod browser widget for Tk
author:
- Slaven Rezic <srezic at cpan.org>
Modified: branches/upstream/libtk-pod-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtk-pod-perl/current/Makefile.PL?rev=9155&op=diff
==============================================================================
--- branches/upstream/libtk-pod-perl/current/Makefile.PL (original)
+++ branches/upstream/libtk-pod-perl/current/Makefile.PL Fri Nov 9 23:25:31 2007
@@ -2,7 +2,7 @@
use ExtUtils::MakeMaker;
-$DIST_VERSION = "0.9936";
+$DIST_VERSION = "0.9937";
$is_devel_host = defined $ENV{USER} && $ENV{USER} eq 'eserte' && $^O =~ /bsd/i && -f "../../perl.release.mk";
if ($is_devel_host) {
open(P, "Pod.pm") or die "Can't open Pod.pm: $!";
@@ -36,6 +36,17 @@
**********************************************************************
EOF
$add_prereq_pm{"Tk::Tree"} = "4.7";
+}
+
+if ($] < 5.009003) {
+ warn <<EOF;
+**********************************************************************
+* Warnings in the form
+* Unknown escape E<0x107>
+* Unknown command paragraph "=encoding iso-8859-2"
+* are expected and may be ignored.
+**********************************************************************
+EOF
}
WriteMakefile(
Modified: branches/upstream/libtk-pod-perl/current/Pod.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtk-pod-perl/current/Pod.pm?rev=9155&op=diff
==============================================================================
--- branches/upstream/libtk-pod-perl/current/Pod.pm (original)
+++ branches/upstream/libtk-pod-perl/current/Pod.pm Fri Nov 9 23:25:31 2007
@@ -4,8 +4,8 @@
use Tk::Toplevel;
use vars qw($VERSION $DIST_VERSION @ISA);
-$VERSION = sprintf("%d.%02d", q$Revision: 5.18 $ =~ /(\d+)\.(\d+)/);
-$DIST_VERSION = "0.9936";
+$VERSION = sprintf("%d.%02d", q$Revision: 5.19 $ =~ /(\d+)\.(\d+)/);
+$DIST_VERSION = "0.9937";
@ISA = qw(Tk::Toplevel);
Modified: branches/upstream/libtk-pod-perl/current/Pod/FindPods.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtk-pod-perl/current/Pod/FindPods.pm?rev=9155&op=diff
==============================================================================
--- branches/upstream/libtk-pod-perl/current/Pod/FindPods.pm (original)
+++ branches/upstream/libtk-pod-perl/current/Pod/FindPods.pm Fri Nov 9 23:25:31 2007
@@ -1,7 +1,7 @@
# -*- perl -*-
#
-# $Id: FindPods.pm,v 5.8 2007/10/19 19:36:54 eserte Exp $
+# $Id: FindPods.pm,v 5.10 2007/11/07 21:38:48 eserte Exp $
# Author: Slaven Rezic
#
# Copyright (C) 2001,2003,2004,2005,2007 Slaven Rezic. All rights reserved.
@@ -38,7 +38,7 @@
@EXPORT_OK = qw/%pods $has_cache pod_find/;
-$VERSION = sprintf("%d.%02d", q$Revision: 5.8 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 5.10 $ =~ /(\d+)\.(\d+)/);
BEGIN { # Make a DEBUG constant very first thing...
if(defined &DEBUG) {
@@ -242,13 +242,13 @@
$opts{follow_skip} = 2;
}
- foreach my $inc (@dirs) {
+ foreach my $inc (reverse @dirs) {
next unless -d $inc;
$curr_dir = $inc;
find({ %opts, wanted => $wanted }, $inc);
}
- foreach my $inc (@script_dirs) {
+ foreach my $inc (reverse @script_dirs) {
find({ %opts, wanted => $wanted_scripts }, $inc);
}
@@ -263,7 +263,7 @@
sub simplify_name {
my $f = shift;
$f =~ s|^\d+\.\d+\.\d+/?||; # strip perl version
- $f =~ s|^$arch_re|| if defined $arch_re; # strip machine
+ $f =~ s|^$arch_re/|| if defined $arch_re; # strip machine
$f =~ s/\.(pod|pm)$//;
$f =~ s|^pod/||;
# Workaround for case insensitive systems --- the pod directory contains
@@ -360,6 +360,11 @@
sub is_vendor_module {
my $path = shift;
+ return 0 if (!defined $Config{'installvendorlib'} ||
+ $Config{'installvendorlib'} eq '' ||
+ !defined $Config{'installvendorarch'} ||
+ $Config{'installvendorarch'} eq ''
+ );
$path =~ /^(
\Q$Config{'installvendorlib'}\E
|
Modified: branches/upstream/libtk-pod-perl/current/Pod/Text.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtk-pod-perl/current/Pod/Text.pm?rev=9155&op=diff
==============================================================================
--- branches/upstream/libtk-pod-perl/current/Pod/Text.pm (original)
+++ branches/upstream/libtk-pod-perl/current/Pod/Text.pm Fri Nov 9 23:25:31 2007
@@ -26,7 +26,7 @@
use vars qw($VERSION @ISA @POD $IDX
@tempfiles @gv_pids $terminal_fallback_warn_shown);
-$VERSION = sprintf("%d.%02d", q$Revision: 5.16 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 5.17 $ =~ /(\d+)\.(\d+)/);
@ISA = qw(Tk::Frame Tk::Pod::SimpleBridge Tk::Pod::Cache);
@@ -1353,6 +1353,10 @@
S<boofar> is in SE<lt>E<gt>.
+Indexed items are not supported in Tk::Pod. X<Index Test>
+
+Zero-Z<>effect formatting.
+
German umlauts:
=over 4
@@ -1436,7 +1440,22 @@
=back
-Other Pod docu: Tk::Font, Tk::BrowseEntry
+=head1 TESTING HEAD1
+
+=head2 TESTING HEAD2
+
+=head3 TESTING HEAD3
+
+=head4 TESTING HEAD4
+
+=begin a_format_which_does_not_exist
+
+This section should be invisible (=begin and =end).
+
+=end a_format_which_does_not_exist
+
+Other Pod docu: Tk::Font, Tk::BrowseEntry (not underlined, but
+double-clickable in Tk::Pod)
=head1 AUTHOR
More information about the Pkg-perl-cvs-commits
mailing list