Changeset 183029 in webkit

Timestamp:

Apr 20, 2015, 3:05:50 PM (10 years ago)

Author:

matthew_hanson@apple.com

Message:

Suppress warning in prepare-ChangeLog.
​https://bugs.webkit.org/show_bug.cgi?id=143882

Reviewed by David Kilzer.

Prune noisy prepare-ChangeLog output by using the List::Util::any function
instead of the deprecated smartmatch operator.

• Scripts/prepare-ChangeLog:

Import the List::Util::any function.

(get_function_line_ranges_for_cpp):
Use the any function instead of smartmatch.

Location:

trunk/Tools

Files:

• ChangeLog (modified) (1 diff)
• Scripts/prepare-ChangeLog (modified) (2 diffs)

trunk/Tools/ChangeLog

@@ +1 @@
+2015-04-17  Matthew Hanson  <matthew_hanson@apple.com>
+
+        Suppress warning in prepare-ChangeLog.
+        https://bugs.webkit.org/show_bug.cgi?id=143882
+
+        Reviewed by David Kilzer.
+
+        Prune noisy prepare-ChangeLog output by using the List::Util::any function
+        instead of the deprecated smartmatch operator.
+
+        * Scripts/prepare-ChangeLog:
+        Import the List::Util::any function.
+
+        (get_function_line_ranges_for_cpp):
+        Use the any function instead of smartmatch.
+
 2015-04-20  Anders Carlsson  <andersca@apple.com>
 

trunk/Tools/Scripts/prepare-ChangeLog

@@ -61 +61 @@
 use Getopt::Long;
 use lib $FindBin::Bin;
+use List::Util qw/any/;
 use POSIX qw(strftime);
 use VCSUtils;
@@ -875 +876 @@
             # Open parenthesis.
             if ($1 eq "(") {
-                $potential_name = $word unless $in_parentheses || $skip_til_brace_or_semicolon || $word ~~ ["CF_ENUM", "CF_OPTIONS", "NS_ENUM", "NS_OPTIONS"];
+                $potential_name = $word unless $in_parentheses || $skip_til_brace_or_semicolon || any { $word eq $_ } ("CF_ENUM", "CF_OPTIONS", "NS_ENUM", "NS_OPTIONS");
                 $in_parentheses++;
                 next;