diff options
author | ivan <ivan> | 2011-04-18 23:15:19 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-04-18 23:15:19 +0000 |
commit | b5c4237a34aef94976bc343c8d9e138664fc3984 (patch) | |
tree | ba7cb2c13c199b1012c661fcf4f248e7b7e3d36f /rt/sbin/license_tag | |
parent | 96a0d937cdfe26d691e59139088e33e0bc3e1184 (diff) | |
parent | 75162bb14b3e38d66617077843f4dfdcaf09d5c4 (diff) |
This commit was generated by cvs2svn to compensate for changes in r11022,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'rt/sbin/license_tag')
-rw-r--r-- | rt/sbin/license_tag | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/rt/sbin/license_tag b/rt/sbin/license_tag index 26dd380..9ddf82e 100644 --- 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)$/; - 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 - "; @@ -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; @@ -146,7 +146,7 @@ sub tag_mason { 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 - "; @@ -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; @@ -180,7 +180,7 @@ sub tag_makefile { 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 - "; @@ -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; @@ -214,7 +214,7 @@ sub tag_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 - "; @@ -241,7 +241,7 @@ sub tag_script { 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; |