Changeset 11521 for lang/perl/Punc/trunk

Timestamp:

05/13/08 18:58:15 (6 months ago)

Author:

mizzy

Message:

Module::Service::Debian を新しいインターフェースに対応させた

Files:

• lang/perl/Punc/trunk/lib/Punc/Slave/Module/Service/Debian.pm (modified) (1 diff)

lang/perl/Punc/trunk/lib/Punc/Slave/Module/Service/Debian.pm

@@ -21 +21 @@
         # サービス名 = プロセス名を仮定しているので。
         `start-stop-daemon --stop --test --name $service`;
-        return { result => $? }; # TODO: $? >> 8 を返した方がいい？
+        return $?; # TODO: $? >> 8 を返した方がいい？
     }
     else {
-        return { error => "no such service: $service" };
+        return $self->error("no such service: $service");
     }
 }