r12864 - in /branches/upstream/libhtml-copy-perl/current: Changes META.yml bin/htmlcopy lib/HTML/Copy.pm

[gwolf at users.alioth.debian.org]

Author: gwolf
Date: Thu Jan 17 19:20:22 2008
New Revision: 12864

URL: http://svn.debian.org/wsvn/?sc=1&rev=12864
Log:
[svn-upgrade] Integrating new upstream version, libhtml-copy-perl (1.23)

Modified:
    branches/upstream/libhtml-copy-perl/current/Changes
    branches/upstream/libhtml-copy-perl/current/META.yml
    branches/upstream/libhtml-copy-perl/current/bin/htmlcopy
    branches/upstream/libhtml-copy-perl/current/lib/HTML/Copy.pm

Modified: branches/upstream/libhtml-copy-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-copy-perl/current/Changes?rev=12864&op=diff
==============================================================================
--- branches/upstream/libhtml-copy-perl/current/Changes (original)
+++ branches/upstream/libhtml-copy-perl/current/Changes Thu Jan 17 19:20:22 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: branches/upstream/libhtml-copy-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-copy-perl/current/META.yml?rev=12864&op=diff
==============================================================================
--- branches/upstream/libhtml-copy-perl/current/META.yml (original)
+++ branches/upstream/libhtml-copy-perl/current/META.yml Thu Jan 17 19:20:22 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: branches/upstream/libhtml-copy-perl/current/bin/htmlcopy
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-copy-perl/current/bin/htmlcopy?rev=12864&op=diff
==============================================================================
--- branches/upstream/libhtml-copy-perl/current/bin/htmlcopy (original)
+++ branches/upstream/libhtml-copy-perl/current/bin/htmlcopy Thu Jan 17 19:20:22 2008
@@ -7,7 +7,7 @@
 use Getopt::Long;
 use Pod::Usage;
 
-our $VERSION = '1.22';
+our $VERSION = '1.23';
 
 {
 	my $man = 0;

Modified: branches/upstream/libhtml-copy-perl/current/lib/HTML/Copy.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-copy-perl/current/lib/HTML/Copy.pm?rev=12864&op=diff
==============================================================================
--- branches/upstream/libhtml-copy-perl/current/lib/HTML/Copy.pm (original)
+++ branches/upstream/libhtml-copy-perl/current/lib/HTML/Copy.pm Thu Jan 17 19:20:22 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;