Changing default behavior of upload handling to stop taking over the upload extension...

[catagits/HTTP-Body.git] / t / 09rt88342-diff-regexp.t

diff --git a/t/09rt88342.t b/t/09rt88342-diff-regexp.t
similarity index 94%
rename from t/09rt88342.t
rename to t/09rt88342-diff-regexp.t
index d71d3d0..27ffad0 100644 (file)
--- a/t/09rt88342.t
+++ b/t/09rt88342-diff-regexp.t
@@ -19,9 +19,10 @@ use File::Temp qw/ tempdir /;
 my $path = catdir( getcwd(), 't', 'data', 'multipart' );
 
 {
+  $HTTP::Body::MultiPart::file_temp_suffix = undef;
   $HTTP::Body::MultiPart::basename_regexp = qr/(\.\w+(?:\.\w+)*)$/;
 
-    my $uploads = uploads_for('015');
+  my $uploads = uploads_for('015');
 
        {
                my ($volume,$directories,$file) = File::Spec->splitpath( $uploads->{upload}{tempname} );