From 1ca835e04924d3f6834cf65278695faad417180f Mon Sep 17 00:00:00 2001
From: Stefano Lattarini <stefano.lattarini@gmail.com>
Date: Thu, 10 May 2012 13:00:18 +0200
Subject: [PATCH] [ng] cleanup: remove unused function
 'scan_variable_expansions'

* lib/Automake/Variable.pm (scan_variable_expansions): Delete, it's
not used anymore since commit 'v1.11-1779-g9a82dcd' of 2012-02-23,
"[ng] vars: don't warn about non-POSIX names or GNU make function calls".

Signed-off-by: Stefano Lattarini <stefano.lattarini@gmail.com>
---
 lib/Automake/Variable.pm | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/lib/Automake/Variable.pm b/lib/Automake/Variable.pm
index ab9baad08..983921c21 100644
--- a/lib/Automake/Variable.pm
+++ b/lib/Automake/Variable.pm
@@ -727,35 +727,6 @@ sub dump ($)
 
 =over 4
 
-=item C<@list = scan_variable_expansions ($text)>
-
-Return the list of variable names expanded in C<$text>.  Note that
-unlike some other functions, C<$text> is not split on spaces before we
-check for subvariables.
-
-=cut
-
-sub scan_variable_expansions ($)
-{
-  my ($text) = @_;
-  my @result = ();
-
-  # Strip comments.
-  $text =~ s/#.*$//;
-
-  # Record each use of ${stuff} or $(stuff) that does not follow a $.
-  while ($text =~ /(?<!\$)\$(?:\{([^\}]*)\}|\(([^\)]*)\))/g)
-    {
-      my $var = $1 || $2;
-      # The occurrence may look like $(string1[:subst1=[subst2]]) but
-      # we want only 'string1'.
-      $var =~ s/:[^:=]*=[^=]*$//;
-      push @result, $var;
-    }
-
-  return @result;
-}
-
 =item C<Automake::Variable::define($varname, $owner, $type, $cond, $value, $comment, $where, $pretty)>
 
 Define or append to a new variable.
-- 
2.47.2