[prepare-ChangeLog] Handle versioned Perl/Python shebangs

https://bugs.webkit.org/show_bug.cgi?id=260918 Reviewed by Alexey Proskuryakov. * Tools/Scripts/prepare-ChangeLog: (get_function_line_ranges): Canonical link: https://commits.webkit.org/267509@main
WebKit · Aug 31, 2023 · af90c2a · af90c2a
1 parent 762ed20
commit af90c2a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Tools/Scripts/prepare-ChangeLog b/Tools/Scripts/prepare-ChangeLog
@@ -783,8 +783,8 @@ sub get_function_line_ranges($$)
     return () unless $first_line =~ m|^#!(?:/usr/bin/env\s+)?(\S+)|;
     my $interpreter = $1;
 
-    return get_function_line_ranges_for_perl($file_handle, $file_name) if $interpreter =~ /perl$/;
-    return get_function_line_ranges_for_python($file_handle, $file_name) if $interpreter =~ /python$/;
+    return get_function_line_ranges_for_perl($file_handle, $file_name) if $interpreter =~ /perl[0-9\.]*$/;
+    return get_function_line_ranges_for_python($file_handle, $file_name) if $interpreter =~ /python[0-9\.]*$/;
 
     return ();
 }