===================================================================
RCS file: /cvs/openbsd/errata_scraper/errata_scraper.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- openbsd/errata_scraper/errata_scraper.pl	2011/03/23 19:46:16	1.3
+++ openbsd/errata_scraper/errata_scraper.pl	2011/05/29 02:04:30	1.4
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1: errata_scraper.pl,v 1.2 2011/03/21 16:28:15 andrew Exp $
+# $AFresh1: errata_scraper.pl,v 1.3 2011/03/23 18:46:16 andrew Exp $
 ########################################################################
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 #
@@ -19,7 +19,6 @@
 use warnings;
 
 use Mojo::UserAgent;
-use Mojo::ByteStream 'b';
 
 my $base_uri = 'http://www.openbsd.org/';
 
@@ -33,11 +32,13 @@
         reverse @{ $ua->get( $base_uri . $l->attrs->{'href'} )->res->dom('li')
         } )
     {
-        my $patch = $e->at('a[href$=".patch"]')->attrs->{href};
-        my $title = b( $e->at('strong')->replace('')->all_text )->trim;
-        my $arch  = b( $e->at('i')->replace('')->all_text )->trim;
-        my $descr = b( $e->all_text )->trim;
+        my $patch = $e->at('a[href$=".patch"]')->replace('')->{href};
+        my $title = $e->at('strong')->replace('')->all_text;
+        my $arch  = $e->at('i')->replace('')->all_text;
+        my $descr = $e->all_text;
         $descr =~ s/\s+/ /gs;
+        $descr =~ s/\s(\.(?:\s|$))/$1/gs;
+        $descr =~ s/\.+$/./gs;
 
         print 'Title: ', $title, "\n";
         print 'Arch:  ', $arch,  "\n";