/usr/local/CPAN/XML-Liberal/XML/Liberal/Remedy/DeprecatedDTD.pm

• package XML::Liberal::Remedy::DeprecatedDTD
  • apply
• EOF

package XML::Liberal::Remedy::DeprecatedDTD;
use strict;
use base qw( XML::Liberal::Remedy );

sub apply {
    my $self = shift;
    my($xml_ref) = @_;
    my $match = $$xml_ref =~ s{(?<=\s(["'])http://)my\.netscape\.com/publish/formats(?=/rss-0\.91?\.dtd\1\s*>)}
                                                            {www.rssboard.org};
    return 1 if $match;

    Carp::carp("Can't find deprecated DTD: line $self->{line}");
    return;
}

1;