From: Eugene Crosser <crosser@average.org>
Date: Thu, 3 Jun 2010 16:59:45 +0000 (+0000)
Subject: fix 'ublessed reference' - almost works
X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=commitdiff_plain;h=135674817b47747d9a3c343376fc3dea6da229ac

fix 'ublessed reference' - almost works
---

diff --git a/mkgallery.pl b/mkgallery.pl
index d0f056e..7a4b681 100755
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -224,11 +224,12 @@ sub initfeed {
 	$feedobj->{-file} = $feedfile;
 	$feedobj->{-base} = $feedbase;
 	$feedobj->{-hub} = $feedhub;
-	$feedobj->{-feed} = XML::FeedPP::Atom::Atom10->new;
 	if ( -f $feedobj->{-file} ) {
-		$feedobj->{-feed}->load($feedobj->{-file});
+		$feedobj->{-feed} = XML::FeedPP::Atom::Atom10->new(
+							$feedobj->{-file});
 		$feedobj->{-feed}->limit_item(15);
 	} else {
+		$feedobj->{-feed} = XML::FeedPP::Atom::Atom10->new;
 		$feedobj->{-feed}->title("Gallery");
 		$feedobj->{-feed}->description("generated by ".
 			"<a href=\"http://www.average.org/mkgallery/\">".
@@ -238,8 +239,6 @@ sub initfeed {
 		#$feedobj->{-feed}->language("en");
 		#$feedobj->{-feed}->image($url, $tit, $link, $desc, $w, $h);
 	}
-	$feedobj->{-feed}->pubDate(time);
-	$feedobj->{-feed}->to_file($feedobj->{-savepath});
 	$self->{-feed} = $feedobj->{-feed};
 }