diff options
| author | Julian Blake Kongslie <jblake@omgwallhack.org> | 2010-07-19 02:35:27 -0700 |
|---|---|---|
| committer | jblake+piny@omgwallhack.org <jblake@omgwallhack.org> | 2010-07-19 02:35:27 -0700 |
| commit | 9ddb2e2aa1f9a0c387e1a33b438b0065e7ebe4f9 (patch) | |
| tree | ce226a123da61a6f4eecbba6de084b7bf831c59d | |
| parent | 0a92ac2e90d730ba61d9a7d3f39c99d9c85eb861 (diff) | |
| download | piny-code-9ddb2e2aa1f9a0c387e1a33b438b0065e7ebe4f9.tar.gz piny-code-9ddb2e2aa1f9a0c387e1a33b438b0065e7ebe4f9.zip | |
Typo.
| -rw-r--r-- | usr/src/libpiny/lib/Piny/Repo.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/usr/src/libpiny/lib/Piny/Repo.pm b/usr/src/libpiny/lib/Piny/Repo.pm index 05c5793..8b2045c 100644 --- a/usr/src/libpiny/lib/Piny/Repo.pm +++ b/usr/src/libpiny/lib/Piny/Repo.pm @@ -197,10 +197,10 @@ sub destroy { my $temp = File::Temp->new( ) or die "Could not create temporary file: $!"; $temp->unlink_on_destroy( 0 ); - $dh = IO::Dir->new( "/etc/cgitrc.d" ) or die "Could not open cgitrc.d directory: $!"; + my $dh = IO::Dir->new( "/etc/cgitrc.d" ) or die "Could not open cgitrc.d directory: $!"; while ( defined ( my $entry = $dh->read ) ) { next if ( $entry =~ /^\./ ); - open( FILE, "<", "/etc/cgitrc.d" . $entry ) or die "Could not open cgitrc.d entry $entry: $!"; + open( FILE, "<", "/etc/cgitrc.d/" . $entry ) or die "Could not open cgitrc.d entry $entry: $!"; print $temp <FILE>; close( FILE ) or die "Could not close cgitrc.d entry $entry: $!"; }; @@ -230,13 +230,13 @@ sub destroy { rename( $temp->filename, "/etc/ikiwiki/wikilist" ) or die "Could not rename over old wikilist: $!"; - system( "rm", "-rf", $repo->secure_path, $repo->ikiwiki_destdir, $repo->ikiwiki_srcdir, "/etc/ikiwiki/piny/" . $repo->name . ".setup", $repo->path ); + system( "rm", "-rf", $s->secure_path, $s->ikiwiki_destdir, $s->ikiwiki_srcdir, "/etc/ikiwiki/piny/" . $s->name . ".setup", $s->path ); my $ikiuser = Piny::User::IkiWiki->new( "name" => "ikiwiki-" . $s->name ); system( "deluser", "--remove-home", $ikiuser->name ); system( "delgroup", $ikiuser->name ); - system( "delgroup", "git-" . $repo->name ); + system( "delgroup", "git-" . $s->name ); }; |