Skip to content

Commit

Permalink
Licensing
Browse files Browse the repository at this point in the history
  • Loading branch information
Jeffrey Kegler authored and Jeffrey Kegler committed Oct 25, 2011
1 parent a20b3ea commit d7c78d2
Show file tree
Hide file tree
Showing 2 changed files with 43 additions and 25 deletions.
16 changes: 3 additions & 13 deletions r2/config/Marpa/R2/License.pm
Expand Up @@ -276,19 +276,7 @@ sub file_type {
if scalar @dirs > 1
and $dirs[0] eq 'pperl'
and $filepart =~ /[.]pm\z/xms;
return \&license_problems_in_perl_file
if scalar @dirs == 3
and $dirs[0] eq 't'
and $dirs[1] eq 'shared'
and $dirs[2] eq 'common'
and $filepart =~ /[.]t\z/xms;
return \&trivial
if scalar @dirs == 2
and $dirs[0] eq 't'
and $dirs[1] eq 'shared'
and $filepart =~ /[.]t\z/xms;
return \&ignored

if scalar @dirs >= 2
and $dirs[0] eq 'libmarpa'
and $dirs[1] eq 'orig';
Expand Down Expand Up @@ -625,7 +613,9 @@ sub license_problems_in_pod_file {
my $problem =
"=== licensing pod section for $filename should be as follows:\n"
. $pod_section
. ( q{=} x 30 );
. ( q{=} x 30 )
. "\n"
;
push @problems, $problem;
} ## end if ( scalar @problems and $verbose >= 2 )
return @problems;
Expand Down
52 changes: 40 additions & 12 deletions r2/html/pod/HTML.pod
@@ -1,7 +1,17 @@
# This software is copyright (c) 2011 by Jeffrey Kegler
# This is free software; you can redistribute it and/or modify it
# under the same terms as the Perl 5 programming language system
# itself.
# Copyright 2011 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser
# General Public License along with Marpa::R2. If not, see
# http://www.gnu.org/licenses/.

=head1 NAME

Expand Down Expand Up @@ -1043,13 +1053,31 @@ may be exported.

=head1 COPYRIGHT AND LICENSE

=for Marpa::HTML::Display
=for Marpa::R2::Display
ignore: 1

This software is copyright (c) 2011 by Jeffrey Kegler
This is free software; you can redistribute it and/or modify it
under the same terms as the Perl 5 programming language system
itself.

=for Marpa::HTML::Display::End

Copyright 2011 Jeffrey Kegler
This file is part of Marpa::R2. Marpa::R2 is free software: you can
redistribute it and/or modify it under the terms of the GNU Lesser
General Public License as published by the Free Software Foundation,
either version 3 of the License, or (at your option) any later version.

Marpa::R2 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser
General Public License along with Marpa::R2. If not, see
http://www.gnu.org/licenses/.

=for Marpa::R2::Display::End

=cut

# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:

0 comments on commit d7c78d2

Please sign in to comment.