projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
usability for msgcat editing: redirect back to the message catalog you are working...
[freeside.git]
/
rt
/
sbin
/
license_tag
diff --git
a/rt/sbin/license_tag
b/rt/sbin/license_tag
index
26dd380
..
9ddf82e
100644
(file)
--- a/
rt/sbin/license_tag
+++ b/
rt/sbin/license_tag
@@
-113,7
+113,7
@@
sub tag_mason {
my $pm = $_;
return unless (-f $pm);
return if $pm =~ /images/ || $pm =~ /\.(?:png|jpe?g|gif)$/;
my $pm = $_;
return unless (-f $pm);
return if $pm =~ /images/ || $pm =~ /\.(?:png|jpe?g|gif)$/;
- open(
FILE,"<$pm") ||
die "Failed to open $pm";
+ open(
FILE, '<', $pm ) or
die "Failed to open $pm";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
@@
-137,7
+137,7
@@
sub tag_mason {
- open
(FILE, ">$pm") ||
die "couldn't write new file";
+ open
( FILE, '>', $pm ) or
die "couldn't write new file";
print FILE $file;
close FILE;
print FILE $file;
close FILE;
@@
-146,7
+146,7
@@
sub tag_mason {
sub tag_makefile {
my $pm = shift;
sub tag_makefile {
my $pm = shift;
- open(
FILE,"<$pm") ||
die "Failed to open $pm";
+ open(
FILE, '<', $pm ) or
die "Failed to open $pm";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
@@
-170,7
+170,7
@@
sub tag_makefile {
- open
(FILE, ">$pm") ||
die "couldn't write new file";
+ open
( FILE, '>', $pm ) or
die "couldn't write new file";
print FILE $file;
close FILE;
print FILE $file;
close FILE;
@@
-180,7
+180,7
@@
sub tag_makefile {
sub tag_pm {
my $pm = $_;
next unless $pm =~ /\.pm/s;
sub tag_pm {
my $pm = $_;
next unless $pm =~ /\.pm/s;
- open(
FILE,"<$pm") ||
die "Failed to open $pm";
+ open(
FILE, '<', $pm ) or
die "Failed to open $pm";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
@@
-204,7
+204,7
@@
sub tag_pm {
- open
(FILE, ">$pm") ||
die "couldn't write new file $pm";
+ open
( FILE, '>', $pm ) or
die "couldn't write new file $pm";
print FILE $file;
close FILE;
print FILE $file;
close FILE;
@@
-214,7
+214,7
@@
sub tag_pm {
sub tag_script {
my $pm = $_;
return unless (-f $pm);
sub tag_script {
my $pm = $_;
return unless (-f $pm);
- open(
FILE,"<$pm") ||
die "Failed to open $pm";
+ open(
FILE, '<', $pm ) or
die "Failed to open $pm";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
my $file = (join "", <FILE>);
close (FILE);
print "$pm - ";
@@
-241,7
+241,7
@@
sub tag_script {
print "\n";
print "\n";
- open
(FILE, ">$pm") ||
die "couldn't write new file";
+ open
( FILE, '>', $pm ) or
die "couldn't write new file";
print FILE $file;
close FILE;
print FILE $file;
close FILE;