r826 - in packages/libhtml-clean-perl/trunk: debian lib/HTML

[Gunnar Wolf]

Author: gwolf
Date: 2005-03-26 19:11:53 +0000 (Sat, 26 Mar 2005)
New Revision: 826

Modified:
   packages/libhtml-clean-perl/trunk/debian/changelog
   packages/libhtml-clean-perl/trunk/lib/HTML/Clean.pm
Log:
No longer generates a useless blank at the beginning of each line. 


Modified: packages/libhtml-clean-perl/trunk/debian/changelog
===================================================================
--- packages/libhtml-clean-perl/trunk/debian/changelog	2005-03-26 18:58:12 UTC (rev 825)
+++ packages/libhtml-clean-perl/trunk/debian/changelog	2005-03-26 19:11:53 UTC (rev 826)
@@ -1,3 +1,13 @@
+libhtml-clean-perl (0.8-5) unstable; urgency=low
+
+  * Added a debian/watch file
+  * Quoted some chars, added some POD to make editing (in emacs, at
+    least) easier
+  * No longer generates an unneeded blank at the beginning of a line
+    (Closes: #255631)
+
+ -- Gunnar Wolf <gwolf@debian.org>  Sat, 26 Mar 2005 13:08:46 -0600
+
 libhtml-clean-perl (0.8-4) unstable; urgency=low
 
   * Removed needless "use IO;" from lib/HTML/Clean.pm because it caused

Modified: packages/libhtml-clean-perl/trunk/lib/HTML/Clean.pm
===================================================================
--- packages/libhtml-clean-perl/trunk/lib/HTML/Clean.pm	2005-03-26 18:58:12 UTC (rev 825)
+++ packages/libhtml-clean-perl/trunk/lib/HTML/Clean.pm	2005-03-26 19:11:53 UTC (rev 826)
@@ -63,6 +63,8 @@
 
 ######################################################################
 
+=pod
+
 =head2 $h = new HTML::Clean($dataorfile, [$level]);
 
 This creates a new HTML::Clean object.  A Prerequisite for all other
@@ -106,6 +108,8 @@
 # Set up the data in the self hash..
 #
 
+=pod
+
 =head2 $h->initialize($dataorfile)
 
 This function allows you to reinitialize the HTML data used by the
@@ -151,6 +155,7 @@
   return(0);  # file not found?
 }
 
+=pod
 
 =head2 $h->level([$level])
 
@@ -167,6 +172,8 @@
   return($self->{'LEVEL'});
 }
 
+=pod
+
 =head2 $myref = $h->data()
 
 Returns the current HTML data as a scalar reference.
@@ -329,6 +336,8 @@
    'yuml' => 255
 );
 
+=pod
+
 =head2 strip(\%options);
 
 Removes excess space from HTML
@@ -428,7 +437,7 @@
     $$h =~ s,[\r\n]+,\n,sg; # Carriage/LF -> LF
     $$h =~ s,\s+\n,\n,sg;   # empty line
     $$h =~ s,\n\s+<,\n<,sg; # space before tag
-    $$h =~ s,\n\s+,\n ,sg;  # other spaces
+    $$h =~ s,\n\s+,\n,sg;  # other spaces
 
     $$h =~ s,>\n\s*<,><,sg; # LF/spaces between tags..
 
@@ -483,7 +492,7 @@
   }
 
   if ($do_dequote) {
-    while ($$h =~ s,<([A-z]+ [A-z]+=)(['"])([A-z0-9]+)\2(\s*?[^>]*?>),<$1$3$4,sig)
+    while ($$h =~ s,<([A-z]+ [A-z]+=)([\'\"])([A-z0-9]+)\2(\s*?[^>]*?>),<$1$3$4,sig)
       {
 	# Remove alphanumeric quotes.  Note, breaks DTD..
 	;
@@ -584,6 +593,8 @@
 
 ######################################################################
 
+=pod
+
 =head2 compat()
 
 This function improves the cross-platform compatibility of your HTML.
@@ -628,6 +639,8 @@
   return($tag);
 }  
 
+=pod
+
 =head2 defrontpage();
 
 This function converts pages created with Microsoft Frontpage to
@@ -650,13 +663,14 @@
 
   my $h = $self->{'DATA'};
 
-  while ($$h =~ s,<img\sSRC="[\./]*_vti_bin/fpcount.exe(/.*/).Page=(.*?)\|.*?\s(.*?)>,<img src="/counter?link=$1$2" $3>,xis) {
+  while ($$h =~ s,<img\sSRC=\"[\./]*_vti_bin/fpcount.exe(/.*/).Page=(.*?)\|.*?\s(.*?)>,<img src=\"/counter?link=$1$2\" $3>,xis) {
       print "Converted a Hitcounter.. $1, $2, $3\n";
   }
   $$h =~ s,<!--(mstheme|msthemeseparator|msnavigation)-->,,sgx;
 }
-=back
 
+=pod
+
 =head1 SEE ALSO
 
 =head2 Modules