patch for 1.10

[catagits/HTTP-Body.git] / t / 08multipart-suffix.t

diff --git a/t/08multipart-suffix.t b/t/08multipart-suffix.t
index 367db05..20ae483 100644 (file)
--- a/t/08multipart-suffix.t
+++ b/t/08multipart-suffix.t
@@ -54,8 +54,8 @@ my $path = catdir( getcwd(), 't', 'data', 'multipart' );
         'tempname preserves .txt suffix when dir name has .'
     );
 
-    unlike(
-        $uploads->{upload2}{tempname}, qr/\\/,
+    like(
+        $uploads->{upload2}{tempname}, qr/[\\\/]\w+.txt$/,
         'tempname only gets extension from filename, not from a directory name'
     );
 }