this is just broken in Perl, not much we can do for now

mojolicious · Oct 19, 2017 · 402e35b · 402e35b
1 parent c9a500b
commit 402e35b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,7 @@
 
-7.48  2017-10-14
+7.48  2017-10-19
+  - Reverted previous Mojo::File change since there were too many unintended
+    side effects.
 
 7.47  2017-10-05
   - Added multipart content generator to Mojo::UserAgent::Transactor.

diff --git a/lib/Mojo/File.pm b/lib/Mojo/File.pm
@@ -77,12 +77,8 @@ sub move_to {
 }
 
 sub new {
-  my ($class, @p) = @_;
-
-  # File systems require bytes, make sure we don't accidentally upgrade
-  utf8::downgrade $_, 1 for @p;
-
-  my $value = @p == 1 ? $p[0] : @p > 1 ? catfile @p : canonpath getcwd;
+  my $class = shift;
+  my $value = @_ == 1 ? $_[0] : @_ > 1 ? catfile @_ : canonpath getcwd;
   return bless \$value, ref $class || $class;
 }