r9157 - in /trunk/libtk-pod-perl: Changes META.yml Makefile.PL Pod.pm Pod/FindPods.pm Pod/Text.pm debian/changelog

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Fri Nov 9 23:27:18 UTC 2007 

Author: gregoa-guest
Date: Fri Nov  9 23:27:18 2007
New Revision: 9157

URL: http://svn.debian.org/wsvn/?sc=1&rev=9157
Log:
New upstream release.

Modified:
    trunk/libtk-pod-perl/Changes
    trunk/libtk-pod-perl/META.yml
    trunk/libtk-pod-perl/Makefile.PL
    trunk/libtk-pod-perl/Pod.pm
    trunk/libtk-pod-perl/Pod/FindPods.pm
    trunk/libtk-pod-perl/Pod/Text.pm
    trunk/libtk-pod-perl/debian/changelog

Modified: trunk/libtk-pod-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/Changes?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/Changes (original)
+++ trunk/libtk-pod-perl/Changes Fri Nov  9 23:27:18 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: trunk/libtk-pod-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/META.yml?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/META.yml (original)
+++ trunk/libtk-pod-perl/META.yml Fri Nov  9 23:27:18 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: trunk/libtk-pod-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/Makefile.PL?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/Makefile.PL (original)
+++ trunk/libtk-pod-perl/Makefile.PL Fri Nov  9 23:27:18 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: trunk/libtk-pod-perl/Pod.pm
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/Pod.pm?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/Pod.pm (original)
+++ trunk/libtk-pod-perl/Pod.pm Fri Nov  9 23:27:18 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: trunk/libtk-pod-perl/Pod/FindPods.pm
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/Pod/FindPods.pm?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/Pod/FindPods.pm (original)
+++ trunk/libtk-pod-perl/Pod/FindPods.pm Fri Nov  9 23:27:18 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: trunk/libtk-pod-perl/Pod/Text.pm
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/Pod/Text.pm?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/Pod/Text.pm (original)
+++ trunk/libtk-pod-perl/Pod/Text.pm Fri Nov  9 23:27:18 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
 

Modified: trunk/libtk-pod-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libtk-pod-perl/debian/changelog?rev=9157&op=diff
==============================================================================
--- trunk/libtk-pod-perl/debian/changelog (original)
+++ trunk/libtk-pod-perl/debian/changelog Fri Nov  9 23:27:18 2007
@@ -1,5 +1,6 @@
-libtk-pod-perl (0.9936-2) UNRELEASED; urgency=low
+libtk-pod-perl (0.9937-1) UNRELEASED; urgency=low
 
+  [ Frank Lichtenheld ]
   * debian/rules: Cleanup:
      + move build to build target
      + make install depend on build
@@ -8,7 +9,10 @@
      + move dh_clean before $(MAKE) clean
      + remove non-existant configure target from .PHONY
 
- -- Frank Lichtenheld <djpig at debian.org>  Thu, 08 Nov 2007 18:35:31 +0100
+  [ gregor herrmann ]
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 10 Nov 2007 00:25:47 +0100
 
 libtk-pod-perl (0.9936-1) unstable; urgency=low

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