[Rt-commit] r11693 - rt/branches/3.8-TESTING/sbin

[ruz at bestpractical.com]

Author: ruz
Date: Fri Apr 11 15:38:04 2008
New Revision: 11693

Modified:
   rt/branches/3.8-TESTING/sbin/license_tag

Log:
* skip is extension matches image, we have no images in several places

Modified: rt/branches/3.8-TESTING/sbin/license_tag
==============================================================================
--- rt/branches/3.8-TESTING/sbin/license_tag	(original)
+++ rt/branches/3.8-TESTING/sbin/license_tag	Fri Apr 11 15:38:04 2008
@@ -110,8 +110,8 @@
 
 sub tag_mason {
         my $pm = $_;
-        next unless (-f $pm);
-        next if ($pm =~ /images/);
+        return unless (-f $pm);
+        return if $pm =~ /images/ || $pm =~ /\.(?:png|jpe?g|gif)$/;
         open(FILE,"<$pm") || die "Failed to open $pm";
         my $file = (join "", <FILE>); 
         close (FILE);