Commits

Anonymous committed 6679a20

Better licesning blurbs.

Comments (0)

Files changed (4)

     - Optimization: replaced the _top_it() of _me_die() with a normal method
     with a conditional, as it was the only place where _top_it() was still
     used.
-    - Optimization/Cleanup: _set_inodes() in ::DeepPath. 
+    - Optimization/Cleanup: _set_inodes() in ::DeepPath.
+    - Clarified the licensing blurbs of the .pm files.
 
 0.1.8 - Mon Jan 19 18:36:51 IST 2009
     - Optimization/Refactoring: replaced the last call to ->_father with a 

lib/File/Find/Object/Base.pm

-# This program is free software, distributed under the same terms as 
-# Parrot.
-
 package File::Find::Object::Base;
 
 use strict;
 =head1 SEE ALSO
 
 L<File::Find::Object>
+
+=head1 LICENSE
+
+Copyright (C) 2005, 2006 by Olivier Thauvin
+
+This package is free software; you can redistribute it and/or modify it under 
+the following terms:
+
+1. The GNU General Public License Version 2.0 - 
+http://www.opensource.org/licenses/gpl-license.php
+
+2. The Artistic License Version 2.0 -
+http://www.perlfoundation.org/legal/licenses/artistic-2_0.html
+
+3. At your option - any later version of either or both of these licenses.
+
+=cut
+

lib/File/Find/Object/PathComp.pm

-# This program is free software, distributed under the same terms as 
-# Parrot.
-
 package File::Find::Object::PathComp;
 
 use strict;
 =head1 SEE ALSO
 
 L<File::Find::Object>
+
+=head1 LICENSE
+
+Copyright (C) 2005, 2006 by Olivier Thauvin
+
+This package is free software; you can redistribute it and/or modify it under 
+the following terms:
+
+1. The GNU General Public License Version 2.0 - 
+http://www.opensource.org/licenses/gpl-license.php
+
+2. The Artistic License Version 2.0 -
+http://www.perlfoundation.org/legal/licenses/artistic-2_0.html
+
+3. At your option - any later version of either or both of these licenses.
+
+=cut

lib/File/Find/Object/Result.pm

-# This program is free software, distributed under the same terms as 
-# Parrot.
-
 package File::Find::Object::Result;
 
 use strict;
 =head1 SEE ALSO
 
 L<File::Find::Object>
+
+=head1 LICENSE
+
+Copyright (C) 2005, 2006 by Olivier Thauvin
+
+This package is free software; you can redistribute it and/or modify it under 
+the following terms:
+
+1. The GNU General Public License Version 2.0 - 
+http://www.opensource.org/licenses/gpl-license.php
+
+2. The Artistic License Version 2.0 -
+http://www.perlfoundation.org/legal/licenses/artistic-2_0.html
+
+3. At your option - any later version of either or both of these licenses.
+
+=cut
+