Changeset 33804

Timestamp:

06/05/09 23:39:50 (4 years ago)

Author:

lamanotrama

Message:

"connection failed" が正しいのかぁ

Location:

lang/perl/Garuda/trunk/lib/Garuda/Plugin/Test

Files:

• DBI.pm (modified) (1 diff)
• SMTP.pm (modified) (1 diff)

lang/perl/Garuda/trunk/lib/Garuda/Plugin/Test/DBI.pm

@@ -28 +28 @@
     };
 
-    return $@ ? failure "Connect failed: $@" : success;
+    return $@ ? failure "DBI connection failed: $@" : success;
 }
 

lang/perl/Garuda/trunk/lib/Garuda/Plugin/Test/SMTP.pm

@@ -15 +15 @@
     my ( $self, $context, $host ) = @_;
     my $smtp = Net::SMTP->new(Host => $host, Timeout => $self->config->{timeout} );
-    return $smtp? success : failure "SMTP connect failed.";
+    return $smtp? success : failure "SMTP connection failed.";
 }