Title: [158851] trunk/Tools
Revision
158851
Author
[email protected]
Date
2013-11-07 09:17:36 -0800 (Thu, 07 Nov 2013)

Log Message

Removed retrieveQMakespecVar function
https://bugs.webkit.org/show_bug.cgi?id=123996

Patch by Dániel Bátyai <[email protected]> on 2013-11-07
Reviewed by Csaba Osztrogonác.

* Scripts/webkitdirs.pm:

Modified Paths

Diff

Modified: trunk/Tools/ChangeLog (158850 => 158851)


--- trunk/Tools/ChangeLog	2013-11-07 17:11:34 UTC (rev 158850)
+++ trunk/Tools/ChangeLog	2013-11-07 17:17:36 UTC (rev 158851)
@@ -1,5 +1,14 @@
 2013-11-07  Dániel Bátyai  <[email protected]>
 
+        Removed retrieveQMakespecVar function
+        https://bugs.webkit.org/show_bug.cgi?id=123996
+
+        Reviewed by Csaba Osztrogonác.
+
+        * Scripts/webkitdirs.pm:
+
+2013-11-07  Dániel Bátyai  <[email protected]>
+
         Removed QMake related filters
         https://bugs.webkit.org/show_bug.cgi?id=123992
 

Modified: trunk/Tools/Scripts/webkitdirs.pm (158850 => 158851)


--- trunk/Tools/Scripts/webkitdirs.pm	2013-11-07 17:11:34 UTC (rev 158850)
+++ trunk/Tools/Scripts/webkitdirs.pm	2013-11-07 17:17:36 UTC (rev 158851)
@@ -1736,34 +1736,6 @@
     return system @command;
 }
 
-sub retrieveQMakespecVar
-{
-    my $mkspec = $_[0];
-    my $varname = $_[1];
-
-    my $varvalue = undef;
-    #print "retrieveMakespecVar " . $mkspec . ", " . $varname . "\n";
-
-    local *SPEC;
-    open SPEC, "<$mkspec" or return $varvalue;
-    while (<SPEC>) {
-        if ($_ =~ /\s*include\((.+)\)/) {
-            # open the included mkspec
-            my $oldcwd = getcwd();
-            (my $volume, my $directories, my $file) = File::Spec->splitpath($mkspec);
-            my $newcwd = "$volume$directories";
-            chdir $newcwd if $newcwd;
-            $varvalue = retrieveQMakespecVar($1, $varname);
-            chdir $oldcwd;
-        } elsif ($_ =~ /$varname\s*=\s*([^\s]+)/) {
-            $varvalue = $1;
-            last;
-        }
-    }
-    close SPEC;
-    return $varvalue;
-}
-
 sub autotoolsFlag($$)
 {
     my ($flag, $feature) = @_;
_______________________________________________
webkit-changes mailing list
[email protected]
https://lists.webkit.org/mailman/listinfo/webkit-changes

Reply via email to