projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT 4.0.13
[freeside.git]
/
rt
/
devel
/
tools
/
license_tag
diff --git
a/rt/devel/tools/license_tag
b/rt/devel/tools/license_tag
index
de3bd3b
..
05bcf83
100644
(file)
--- a/
rt/devel/tools/license_tag
+++ b/
rt/devel/tools/license_tag
@@
-5,7
+5,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
2
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
3
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-48,11
+48,13
@@
# those contributions and any derivatives thereof.
#
# END BPS TAGGED BLOCK }}}
# those contributions and any derivatives thereof.
#
# END BPS TAGGED BLOCK }}}
+use strict;
+use warnings;
my $LICENSE = <<'EOL';
COPYRIGHT:
my $LICENSE = <<'EOL';
COPYRIGHT:
-This software is Copyright (c) 1996-201
2
Best Practical Solutions, LLC
+This software is Copyright (c) 1996-201
3
Best Practical Solutions, LLC
<sales@bestpractical.com>
(Except where explicitly superseded by other copyright notices)
<sales@bestpractical.com>
(Except where explicitly superseded by other copyright notices)
@@
-113,7
+115,7
@@
tag_makefile ('README');
sub tag_mason {
my $pm = $_;
return unless (-f $pm);
sub tag_mason {
my $pm = $_;
return unless (-f $pm);
- return if $pm =~ /
images/ || $pm =~ /
\.(?:png|jpe?g|gif)$/;
+ return if $pm =~ /\.(?:png|jpe?g|gif)$/;
open( FILE, '<', $pm ) or die "Failed to open $pm";
my $file = (join "", <FILE>);
close (FILE);
open( FILE, '<', $pm ) or die "Failed to open $pm";
my $file = (join "", <FILE>);
close (FILE);
@@
-252,7
+254,7
@@
sub another_license {
my $name = shift;
my $file = shift;
my $name = shift;
my $file = shift;
- return 1 if ($name =~ /(?:
FCKE
ditor|scriptaculous|superfish|tablesorter|farbtastic)/i);
+ return 1 if ($name =~ /(?:
cke
ditor|scriptaculous|superfish|tablesorter|farbtastic)/i);
return 0 if $file =~ /Copyright\s+\(c\)\s+\d\d\d\d-\d\d\d\d Best Practical Solutions/i;
return 1 if $file =~ /\b(copyright|GPL|Public Domain)\b/i; # common
return 0 if $file =~ /Copyright\s+\(c\)\s+\d\d\d\d-\d\d\d\d Best Practical Solutions/i;
return 1 if $file =~ /\b(copyright|GPL|Public Domain)\b/i; # common