diff options
Diffstat (limited to 'usr/src/libpiny/Piny/Repo.pm')
| -rw-r--r-- | usr/src/libpiny/Piny/Repo.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/usr/src/libpiny/Piny/Repo.pm b/usr/src/libpiny/Piny/Repo.pm index 51034dd..b10651f 100644 --- a/usr/src/libpiny/Piny/Repo.pm +++ b/usr/src/libpiny/Piny/Repo.pm @@ -66,7 +66,7 @@ sub _rename_repo { my $olddir = "/srv/git/$old_name.git"; my $newdir = "/srv/git/$new_name.git"; - rename( $olddir, $newdir ) or die "Couldn't rename $olddir to $newdir: $!\n"; + rename( $olddir, $newdir ) or die "Couldn't rename $olddir to $newdir: $!"; $s->clear_path( ); }; @@ -76,9 +76,9 @@ sub _set_description { return unless defined $old_description; - open( my $fd, ">", $s->path( ) . "/description" ) or die "Unable to open " . $s->path( ) . "/description for writing: $!\n"; + 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: $!\n"; + close( $fd ) or die "Error when closing " . $s->path( ) . "/description: $!"; }; # Builder methods @@ -102,14 +102,14 @@ sub _build_path { if ( -d $dir ) { return $dir; } else { - die "Expected repo $dir does not exist!\n"; + die "Expected repo $dir does not exist!"; }; }; sub _build_description { my ( $s ) = @_; - open( my $d, "<", $s->path( ) . "/description" ) or die "Unable to open " . $s->path( ) . "/description: $!\n"; + open( my $d, "<", $s->path( ) . "/description" ) or die "Unable to open " . $s->path( ) . "/description: $!"; my $desc; { local $/ = undef; @@ -124,7 +124,7 @@ sub _build_repostat { my ( $s ) = @_; my @res = stat( $s->path( ) ); - die "stat( " . $s->path( ) . " ) failed: $!\n" unless @res; + die "stat( " . $s->path( ) . " ) failed: $!" unless @res; return \@res; }; |