Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

eliminate // to restore 5.8 compat

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

0 notes on commit bcbaa20

Please sign in to comment.
Something went wrong with that request. Please try again.