Load XML-Feed-0.04 into trunk.

[catagits/XML-Feed.git] / lib / XML / Feed / Atom.pm

diff --git a/lib/XML/Feed/Atom.pm b/lib/XML/Feed/Atom.pm
index 4cc500d..0ae1ad3 100644 (file)
--- a/lib/XML/Feed/Atom.pm
+++ b/lib/XML/Feed/Atom.pm
@@ -1,4 +1,4 @@
-# $Id: Atom.pm,v 1.2 2004/06/20 15:20:37 btrott Exp $
+# $Id: Atom.pm 942 2004-12-31 23:01:21Z btrott $
 
 package XML::Feed::Atom;
 use strict;
@@ -11,8 +11,10 @@ use List::Util qw( first );
 sub init_string {
     my $feed = shift;
     my($str) = @_;
-    $feed->{atom} = XML::Atom::Feed->new(Stream => \$str)
-        or return $feed->error(XML::Atom::Feed->errstr);
+    if ($str) {
+        $feed->{atom} = XML::Atom::Feed->new(Stream => $str)
+            or return $feed->error(XML::Atom::Feed->errstr);
+    }
     $feed;
 }