-<?xml version="1.0"?>\r
-<!DOCTYPE informalexample PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">\r
-<informalexample><programlisting>\r
-sub print_content_model {\r
- my($self) = shift;\r
- local($_) = shift;\r
- local(*FILE) = shift;\r
-\r
- my(@cm) = $self->format_content_model2($_);\r
- foreach $_ (@cm) {\r
- print FILE $self->make_links($_, 1, 1), "\n";\r
- }\r
-}\r
-</programlisting></informalexample>\r
+<?xml version="1.0"?>
+<!DOCTYPE informalexample PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd">
+<informalexample><programlisting>
+sub print_content_model {
+ my($self) = shift;
+ local($_) = shift;
+ local(*FILE) = shift;
+
+ my(@cm) = $self->format_content_model2($_);
+ foreach $_ (@cm) {
+ print FILE $self->make_links($_, 1, 1), "\n";
+ }
+}
+</programlisting></informalexample>