Changeset 3306

Timestamp:

03/12/09 10:40:28 (3 years ago)

Author:

jquelin

Message:

cleaning _INTEGER

File:

• trunk/Padre/lib/Padre/Config.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Config.pm

@@ -320 +320 @@
 }
 
+
+#
+# my $is_integer = _INTEGER( $scalar );
+#
+# return true if $scalar is an integer.
+#
 sub _INTEGER ($) {
-    (defined $_[0] and ! ref $_[0] and $_[0] =~ m/^(?:0|-?[1-9]\d*)$/) ? 1 : undef;
-}
+    return defined $_[0] && ! ref $_[0] && $_[0] =~ m/^(?:0|-?[1-9]\d*)$/;
+}
+
 
 1;