From 37027f54f3583e167dfca4b304cdc0f392465fd2 Mon Sep 17 00:00:00 2001 From: Julian Blake Kongslie Date: Sun, 9 Jan 2011 16:16:36 -0800 Subject: Fix some mutators. --- libpiny/debian/changelog | 6 ++++++ libpiny/lib/Piny/Repo.pm | 4 ---- 2 files changed, 6 insertions(+), 4 deletions(-) (limited to 'libpiny') diff --git a/libpiny/debian/changelog b/libpiny/debian/changelog index 1fe34bb..8bd42ee 100644 --- a/libpiny/debian/changelog +++ b/libpiny/debian/changelog @@ -1,3 +1,9 @@ +libpiny-perl (0.16) unstable; urgency=low + + * Fix some of the mutators in Piny::Repo. + + -- Julian Blake Kongslie Sun, 09 Jan 2011 16:16:04 -0800 + libpiny-perl (0.15) unstable; urgency=low * Increment standards version. diff --git a/libpiny/lib/Piny/Repo.pm b/libpiny/lib/Piny/Repo.pm index 8ebb0f4..1acc526 100644 --- a/libpiny/lib/Piny/Repo.pm +++ b/libpiny/lib/Piny/Repo.pm @@ -326,8 +326,6 @@ sub _rename_repo { sub _set_description { my ( $s, $new_description, $old_description ) = @_; - return unless defined $old_description; - open( my $fd, ">", $s->path . "/description" ) or die "Unable to open " . $s->path . "/description for writing: $!"; print $fd $new_description; close( $fd ) or die "Error when closing " . $s->path . "/description: $!"; @@ -336,8 +334,6 @@ sub _set_description { sub _change_owner { my ( $s, $new_owner, $old_owner ) = @_; - return unless defined $old_owner; - find( { wanted => sub { chown( $new_owner->uid, -1, $_ ) or die "Couldn't chown $_: $!"; }, no_chdir => 1 }, $s->path . "/objects" ); $s->clear_ikiwiki_setup; -- cgit v1.2.3