[Bps-public-commit] r19681 - Net-Google-Code/trunk/lib/Net/Google/Code/Role

Fri May 15 01:58:57 EDT 2009

Author: sunnavy
Date: Fri May 15 01:58:57 2009
New Revision: 19681

Modified:
   Net-Google-Code/trunk/lib/Net/Google/Code/Role/Authentication.pm

Log:
tiny improve for A12n.pm role: no content, no signed in

Modified: Net-Google-Code/trunk/lib/Net/Google/Code/Role/Authentication.pm
==============================================================================

--- Net-Google-Code/trunk/lib/Net/Google/Code/Role/Authentication.pm	(original)
+++ Net-Google-Code/trunk/lib/Net/Google/Code/Role/Authentication.pm	Fri May 15 01:58:57 2009
@@ -56,6 +56,7 @@
     my $self = shift;
 
     my $html = $self->mech->content;
+    return unless $html;
     # remove lines of head, style and script
     $html =~ s!<head>.*?</head>!!sg;
     $html =~ s!<style.*?</style>!!sg;

