Permalink
Browse files

eliminate // to restore 5.8 compat

  • Loading branch information...
1 parent ce969ff commit bcbaa20687bbef9545b40c86467c5c0eb257d3a4 @rjbs committed Apr 30, 2011
Showing with 4 additions and 1 deletion.
  1. +1 −0 Changes
  2. +3 −1 t/lib/Test/HT.pm
View
@@ -1,6 +1,7 @@
Revision history for Perl extension HTTP::Throwable
{{$NEXT}}
+ - remove the use of // from a test, restoring perl 5.8 compatibility
0.013 2011-04-25 10:52:47 America/New_York
- MooseX::StrictConstructor has changed API; track it
View
@@ -106,7 +106,9 @@ sub ht_test {
# XXX: Another gross conditional -- rjbs, 2011-02-21
$body = undef if $factory_class eq 'MyFactory';
- my $length = $extra->{length} // length $body // 0;
+ my $length = defined $extra->{length} ? $extra->{length}
+ : defined length $body ? length $body
+ : 0;
my $psgi = $err->as_psgi;

0 comments on commit bcbaa20

Please sign in to comment.