Changeset 17764

Timestamp:

08/17/08 14:04:49 (5 years ago)

Author:

tokuhirom

Message:

oops

Files:

• lang/perl/HTTP-Engine/trunk/t/010_core/request_builder-noenv.t (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/t/010_core/request_builder-noenv.t

@@ -15 +15 @@
 
 for my $meth (qw/uri connection_info headers/) {
-    eval { $req->uri };
-    like $@, qr{explicit parameter};
+    local $@;
+    eval { $req->$meth };
+    like $@, qr{explicit parameter}, $meth;
 }