r76627 - in /branches/upstream/libhtml-packer-perl/current: Changes MANIFEST META.yml TODO lib/HTML/Packer.pm t/02-io.t t/html/s1-expected.html t/html/s1.html t/html/s3-expected.html t/html/s3.html

fabreg-guest at users.alioth.debian.org fabreg-guest at users.alioth.debian.org
Mon Jun 27 14:30:34 UTC 2011 

Author: fabreg-guest
Date: Mon Jun 27 14:30:33 2011
New Revision: 76627

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76627
Log:
[svn-upgrade] new version libhtml-packer-perl (1.002001)

Added:
    branches/upstream/libhtml-packer-perl/current/TODO
Modified:
    branches/upstream/libhtml-packer-perl/current/Changes
    branches/upstream/libhtml-packer-perl/current/MANIFEST
    branches/upstream/libhtml-packer-perl/current/META.yml
    branches/upstream/libhtml-packer-perl/current/lib/HTML/Packer.pm
    branches/upstream/libhtml-packer-perl/current/t/02-io.t
    branches/upstream/libhtml-packer-perl/current/t/html/s1-expected.html
    branches/upstream/libhtml-packer-perl/current/t/html/s1.html
    branches/upstream/libhtml-packer-perl/current/t/html/s3-expected.html
    branches/upstream/libhtml-packer-perl/current/t/html/s3.html

Modified: branches/upstream/libhtml-packer-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/Changes?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/Changes (original)
+++ branches/upstream/libhtml-packer-perl/current/Changes Mon Jun 27 14:30:33 2011
@@ -1,4 +1,9 @@
 Revision history for HTML-Packer
+
+1.002001    2001-06-15
+    - Fixed embarrassing bug in comment regexp.
+    - Fixed tests.
+    - Added TODO.
 
 1.002   2011-06-07
     - Raised version number.

Modified: branches/upstream/libhtml-packer-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/MANIFEST?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/MANIFEST (original)
+++ branches/upstream/libhtml-packer-perl/current/MANIFEST Mon Jun 27 14:30:33 2011
@@ -33,3 +33,4 @@
 t/html/s6-expected.html
 t/html/s6.html
 t/pod.t
+TODO

Modified: branches/upstream/libhtml-packer-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/META.yml?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/META.yml (original)
+++ branches/upstream/libhtml-packer-perl/current/META.yml Mon Jun 27 14:30:33 2011
@@ -26,4 +26,4 @@
   bugtracker: http://github.com/nevesenin/html-packer-perl/issues
   license: http://dev.perl.org/licenses/
   repository: http://github.com/nevesenin/html-packer-perl
-version: 1.002
+version: 1.002001

Added: branches/upstream/libhtml-packer-perl/current/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/TODO?rev=76627&op=file
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/TODO (added)
+++ branches/upstream/libhtml-packer-perl/current/TODO Mon Jun 27 14:30:33 2011
@@ -1,0 +1,4 @@
+2011-06-15
+
+- More tests.
+- Better tests.

Modified: branches/upstream/libhtml-packer-perl/current/lib/HTML/Packer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/lib/HTML/Packer.pm?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/lib/HTML/Packer.pm (original)
+++ branches/upstream/libhtml-packer-perl/current/lib/HTML/Packer.pm Mon Jun 27 14:30:33 2011
@@ -8,7 +8,7 @@
 
 # -----------------------------------------------------------------------------
 
-our $VERSION = '1.002';
+our $VERSION = '1.002001';
 
 our @BOOLEAN_ACCESSORS = (
     'remove_comments',
@@ -30,13 +30,13 @@
 );
 
 our @VOID_ELEMENTS = (
-        'area', 'base', 'br', 'col', 'command', 'embed', 'hr', 'img', 'input',
-        'keygen', 'link', 'meta', 'param', 'source', 'track', 'wbr'
+    'area', 'base', 'br', 'col', 'command', 'embed', 'hr', 'img', 'input',
+    'keygen', 'link', 'meta', 'param', 'source', 'track', 'wbr'
 );
 
 # Some regular expressions are from HTML::Clean
 
-our $COMMENT        = '((?>\s*))(<!--(?:(?:[^#\[]|(?! google_ad_section_)).*?)?-->)((?>\s*))';
+our $COMMENT        = '((?>\s*))(<!--(?:(?![#\[]| google_ad_section_).*?)?-->)((?>\s*))';
 
 our $PACKER_COMMENT = '<!--\s*HTML::Packer\s*(\w+)\s*-->';
 
@@ -59,7 +59,7 @@
         modifier    => 'm'
     },
     {
-        regexp      => '\s*$',
+        regexp      => '[^\S\n]*$',
         replacement => '',
         modifier    => 'm'
     },
@@ -405,7 +405,7 @@
 
 =head1 VERSION
 
-Version 1.002
+Version 1.002001
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libhtml-packer-perl/current/t/02-io.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/t/02-io.t?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/t/02-io.t (original)
+++ branches/upstream/libhtml-packer-perl/current/t/02-io.t Mon Jun 27 14:30:33 2011
@@ -26,10 +26,10 @@
 
 EOT
 
-my $js_expected             = '<script type="javascript">/*<![CDATA[*/alert(\'test\');/*]]>*/</script><a href="/">link 1 </a> <a href="/"> link 2 </a>';
-my $js_expected_html5       = '<script>alert(\'test\');</script><a href="/">link 1 </a> <a href="/"> link 2 </a>';
-my $js_expected_html5_no_js = '<script>' . "\n\n\n\n" . '  alert(\'test\');</script><a href="/">link 1 </a> <a href="/"> link 2 </a>';
-my $js_expected_no_js       = '<script type="javascript">' . "\n\n\n\n" . '  alert(\'test\');</script><a href="/">link 1 </a> <a href="/"> link 2 </a>';
+my $js_expected             = '<script type="javascript">/*<![CDATA[*/alert(\'test\');/*]]>*/</script> <a href="/">link 1 </a> <a href="/"> link 2 </a>';
+my $js_expected_html5       = '<script>alert(\'test\');</script> <a href="/">link 1 </a> <a href="/"> link 2 </a>';
+my $js_expected_html5_no_js = '<script>' . "\n\n\n\n" . '  alert(\'test\');</script> <a href="/">link 1 </a> <a href="/"> link 2 </a>';
+my $js_expected_no_js       = '<script type="javascript">' . "\n\n\n\n" . '  alert(\'test\');</script> <a href="/">link 1 </a> <a href="/"> link 2 </a>';
 
 my $css_input = <<EOT;
 
@@ -55,8 +55,8 @@
 
 EOT
 
-my $css_expected        = '<style type="text/css">' . "\nfoo{\nasdf:asdf;\new:12;\n}\n" . '</style><a href="/">link 1 </a> <a href="/"> link 2 </a>';
-my $css_expected_no_css = '<style type="text/css">' . "\n\n  foo {\n    asdf:asdf;\n    ew:12;\n  }\n" . '</style><a href="/">link 1 </a> <a href="/"> link 2 </a>';
+my $css_expected        = '<style type="text/css">' . "\nfoo{\nasdf:asdf;\new:12;\n}\n" . '</style> <a href="/">link 1 </a> <a href="/"> link 2 </a>';
+my $css_expected_no_css = '<style type="text/css">' . "\n\n  foo {\n    asdf:asdf;\n    ew:12;\n  }\n" . '</style> <a href="/">link 1 </a> <a href="/"> link 2 </a>';
 
 my $html_input = <<EOT;
 <script type="javascript">/*<![CDATA[*/

Modified: branches/upstream/libhtml-packer-perl/current/t/html/s1-expected.html
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/t/html/s1-expected.html?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/t/html/s1-expected.html (original)
+++ branches/upstream/libhtml-packer-perl/current/t/html/s1-expected.html Mon Jun 27 14:30:33 2011
@@ -2,4 +2,5 @@
 1 </a>
 <!-- comment -->
 <a href="/"> link 2
-</a>
+</a>
+<!-- comment 2 -->

Modified: branches/upstream/libhtml-packer-perl/current/t/html/s1.html
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/t/html/s1.html?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/t/html/s1.html (original)
+++ branches/upstream/libhtml-packer-perl/current/t/html/s1.html Mon Jun 27 14:30:33 2011
@@ -1,13 +1,17 @@
 
 
-<a href="/"  >link 
+<a href="/"  >link
 
 1   < /a>
 
 
 <!-- comment -->
 
-    <  a href="/">   link 2   
+    <  a href="/">   link 2
     < / a  >
 
 
+
+
+
+    <!-- comment 2 -->

Modified: branches/upstream/libhtml-packer-perl/current/t/html/s3-expected.html
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/t/html/s3-expected.html?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/t/html/s3-expected.html (original)
+++ branches/upstream/libhtml-packer-perl/current/t/html/s3-expected.html Mon Jun 27 14:30:33 2011
@@ -1,4 +1,11 @@
 <a href="/">link
 1 </a>
 <a href="/"> link 2
-</a>
+</a>
+<!--[if lte IE 6]><iframe frameborder="0" src="javascript:'<html></html>'"></iframe><![endif]-->
+<a href="/">link 3
+1 </a>
+<!-- google_ad_section_start -->
+<a href="/"> link 4
+</a>
+<!-- google_ad_section_end -->

Modified: branches/upstream/libhtml-packer-perl/current/t/html/s3.html
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libhtml-packer-perl/current/t/html/s3.html?rev=76627&op=diff
==============================================================================
--- branches/upstream/libhtml-packer-perl/current/t/html/s3.html (original)
+++ branches/upstream/libhtml-packer-perl/current/t/html/s3.html Mon Jun 27 14:30:33 2011
@@ -1,13 +1,37 @@
 
 
-<a href="/"  >link 
+<a href="/"  >link
 
 1   < /a>
 
 
 <!-- comment -->
 
-    <  a href="/">   link 2   
+    <  a href="/">   link 2
     < / a  >
 
 
+<!--[if lte IE 6]><iframe frameborder="0" src="javascript:'<html></html>'"></iframe><![endif]-->
+
+
+<a href="/"  >link 3
+
+1   < /a>
+
+
+<!-- google_ad_section_start -->
+
+    <  a href="/">   link 4
+    < / a  >
+
+
+  <!-- google_ad_section_end -->
+
+
+
+
+
+
+
+
+

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