From 135674817b47747d9a3c343376fc3dea6da229ac Mon Sep 17 00:00:00 2001
From: Eugene Crosser <crosser@average.org>
Date: Thu, 3 Jun 2010 16:59:45 +0000
Subject: [PATCH] fix 'ublessed reference' - almost works

---
 mkgallery.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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};
 }
 
-- 
2.39.2