r12866 - in /trunk/libhtml-copy-perl: Changes META.yml bin/htmlcopy debian/changelog lib/HTML/Copy.pm

gwolf at users.alioth.debian.org gwolf at users.alioth.debian.org
Thu Jan 17 19:26:00 UTC 2008


Author: gwolf
Date: Thu Jan 17 19:25:57 2008
New Revision: 12866

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

Modified:
    trunk/libhtml-copy-perl/Changes
    trunk/libhtml-copy-perl/META.yml
    trunk/libhtml-copy-perl/bin/htmlcopy
    trunk/libhtml-copy-perl/debian/changelog
    trunk/libhtml-copy-perl/lib/HTML/Copy.pm

Modified: trunk/libhtml-copy-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libhtml-copy-perl/Changes?rev=12866&op=diff
==============================================================================
--- trunk/libhtml-copy-perl/Changes (original)
+++ trunk/libhtml-copy-perl/Changes Thu Jan 17 19:25:57 2008
@@ -1,4 +1,7 @@
 Revision history for Perl extension HTML::Copy.
+
+1.23 2008-01-16
+    * Add error handling routine when a souce file can't be opened.
 
 1.22 2007-08-10
     * add HTTP::Headers to Makefile.PL as a prerequired module(PREREQ_PM).

Modified: trunk/libhtml-copy-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libhtml-copy-perl/META.yml?rev=12866&op=diff
==============================================================================
--- trunk/libhtml-copy-perl/META.yml (original)
+++ trunk/libhtml-copy-perl/META.yml Thu Jan 17 19:25:57 2008
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         HTML-Copy
-version:      1.22
+version:      1.23
 version_from: lib/HTML/Copy.pm
 installdirs:  site
 requires:

Modified: trunk/libhtml-copy-perl/bin/htmlcopy
URL: http://svn.debian.org/wsvn/trunk/libhtml-copy-perl/bin/htmlcopy?rev=12866&op=diff
==============================================================================
--- trunk/libhtml-copy-perl/bin/htmlcopy (original)
+++ trunk/libhtml-copy-perl/bin/htmlcopy Thu Jan 17 19:25:57 2008
@@ -7,7 +7,7 @@
 use Getopt::Long;
 use Pod::Usage;
 
-our $VERSION = '1.22';
+our $VERSION = '1.23';
 
 {
 	my $man = 0;

Modified: trunk/libhtml-copy-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libhtml-copy-perl/debian/changelog?rev=12866&op=diff
==============================================================================
--- trunk/libhtml-copy-perl/debian/changelog (original)
+++ trunk/libhtml-copy-perl/debian/changelog Thu Jan 17 19:25:57 2008
@@ -1,3 +1,9 @@
+libhtml-copy-perl (1.23-1) unstable; urgency=low
+
+  * New upstream release
+
+ -- Gunnar Wolf <gwolf at debian.org>  Thu, 17 Jan 2008 13:21:30 -0600
+
 libhtml-copy-perl (1.22-1) unstable; urgency=low
 
   * Initial Release (packaged by Alejandro Garrido Mota) (Closes: #427247).

Modified: trunk/libhtml-copy-perl/lib/HTML/Copy.pm
URL: http://svn.debian.org/wsvn/trunk/libhtml-copy-perl/lib/HTML/Copy.pm?rev=12866&op=diff
==============================================================================
--- trunk/libhtml-copy-perl/lib/HTML/Copy.pm (original)
+++ trunk/libhtml-copy-perl/lib/HTML/Copy.pm Thu Jan 17 19:25:57 2008
@@ -12,7 +12,7 @@
 use Encode;
 use Encode::Guess;
 use Carp;
-use Data::Dumper;
+#use Data::Dumper;
 
 use HTML::Parser 3.40;
 use HTML::HeadParser;
@@ -35,11 +35,11 @@
 
 =head1 VERSION
 
-Version 1.22
-
-=cut
-
-our $VERSION = '1.22';
+Version 1.23
+
+=cut
+
+our $VERSION = '1.23';
 
 =head1 SYMPOSIS
 
@@ -305,7 +305,8 @@
 sub check_encoding {
     my ($self) = @_;
     my $data;
-    open my $in, "<", $self->source_path;
+    open my $in, "<", $self->source_path
+                    or die "Can't open $self->source_path.";
     {local $/; $data = <$in>;}
     close $in;
     




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