# alt="Valid HTML 4.01 Transitional"
# height="31" width="88"></a>
-file_find(\&fix_if_file,@ARGV)
+find(\&fix_if_file,@ARGV);
sub fix_if_file {
return unless -f $_;
local $/;
my $fc = <$fh>;
close($fh);
- if (# strip out the w3c img callback; replace with alt text
- $fc =~ s{<img\s+src="http://www.w3c.org/Icons/[^"]+"[^>]*?alt="([^"]+)"[^>]*>}{$1}img
- or
- # if it doesn't have alt text, just replace it with Valid HTML
- $fc =~ s{<img\s+src="http://www.w3c.org/Icons/[^"]+"[^>]*>}{Valid HTML}img ) {
+ # strip out the w3c img callback; replace with alt text
+ my $changed = $fc =~ s{<img\s+src="http://www.w3c?.org/Icons/[^"]+"[^>]*?alt="([^"]+)"[^>]*>}{$1}imsg;
+ # if it doesn't have alt text, just replace it with Valid HTML
+ $changed += $fc =~ s{<img\s+src="http://www.w3c?.org/Icons/[^"]+"[^>]*>}{Valid HTML}imsg;
+
+ if ($changed) {
$fh = IO::File->new($_,'w') or
die "Unable to open $_ for writing: $!";
print {$fh} $fc;
close($fh);
+ print STDERR "$File::Find::name was changed\n";
}
}