[Savannah-hackers-public] [PATCH 1/2] detect_license: detect the non-free JSON license.

[Bruno Félix Rezende Ribeiro]

---
 gsv-eval.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gsv-eval.pl b/gsv-eval.pl
index c575dfb..6dc36f4 100755
--- a/gsv-eval.pl
+++ b/gsv-eval.pl
@@ -610,6 +610,9 @@ sub detect_license
          $text =~ /The above copyright notice and this permission notice shall 
be included in all copies or substantial portions of the Software/
          );
 
+        my $possible_json = ($text =~ /The Software shall be used for Good, 
not Evil/ && $possible_x11);
+        $possible_x11 = 0 if $possible_json;
+
        my $possible_perl = $text =~ /This library is free software; you can 
redistribute it and\/or modify it under the same terms as Perl itself/;
 
        my $possible_apache2 = (
@@ -660,6 +663,7 @@ sub detect_license
        push @licenses, $possible_bsd if $possible_bsd;
        push @licenses, "zlib" if $possible_zlib;
        push @licenses, "X11/MIT" if $possible_x11;
+        push @licenses, "JSON (non-free)" if $possible_json;
        push @licenses, "Perl" if $possible_perl;
        push @licenses, "Apache2.0" if $possible_apache2;
        push @licenses, "All permissive (autotools)" if 
$possible_permissive_autotools;
-- 
2.1.4