Changeset f87131

Timestamp:

01/23/08 13:26:01 (4 years ago)

Author:

Tomash Brechko <tomash.brechko@…>

Branches:

master, ketama-compat

Children:

ff0698

Parents:

23c7e8

git-author:

Tomash Brechko <tomash.brechko@…> (01/23/08 13:26:01)

git-committer:

Tomash Brechko <tomash.brechko@…> (01/23/08 13:26:01)

Message:

Use better Perl version syntax.

Files:

• lib/Cache/Memcached/Fast.pm (modified) (3 diffs)
• t/Memd.pm (modified) (1 diff)

lib/Cache/Memcached/Fast.pm

@@ -43 +43 @@
       nowait => 1,
       serialize_methods => [ \&Storable::freeze, \&Storable::thaw ],
-      utf8 => ($^V >= 5.008001 ? 1 : 0),
+      utf8 => ($^V ge v5.8.1 ? 1 : 0),
   });
 
@@ -516 +516 @@
     }
 
-    if ($conf->{utf8} and $^V < 5.008001) {
+    if ($conf->{utf8} and $^V lt v5.8.1) {
         carp "'utf8' may be enabled only for Perl >= 5.8.1, disabled";
         undef $conf->{utf8};
@@ -958 +958 @@
 I<does> check for underflow, attempt to decrement the value below zero
 would set the value to zero.  Similar to L<DBI|DBI>, zero is returned
-as "0E0", and evaluates to true in a boolean context.
+as I<"0E0">, and evaluates to true in a boolean context.
 
 I<Return:> unsigned integer, new value for the I<$key>, or false for

t/Memd.pm

@@ -38 +38 @@
         nowait => 1,
         serialize_methods => [ \&Storable::freeze, \&Storable::thaw ],
-        utf8 => ($^V >= 5.008001 ? 1 : 0),
+        utf8 => ($^V ge v5.8.1 ? 1 : 0),
     );