DocBook XSLT 2.0 Stylesheet output: programlisting.007.xml

Expected (3 differences)Actual (1 differences)
<html>
   <head>
      <link href="../../resources/css/db-prism.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/default.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/prism.css" rel="stylesheet" type="text/css"/>
      <meta charset="utf-8"/>
      <meta content="DocBook XSL 2.0 Stylesheets Vxxx" name="generator"/>
      <script src="../../resources/js/dbmodnizr.js" type="text/javascript"/>
      <title>Article wrapper</title>
   </head>
   <body>
      <article class="article" id="R.1">
         <header class="article-titlepage">
            <h2>Article wrapper</h2>
         </header>
         <p>This test checks that an external file referenced by
<code class="tag-element">textobject</code> is correctly handled.</p>
         <pre class="programlisting language-none line-numbers">
            <code><article xmlns="http://docbook.org/ns/docbook" version="5.0">
<title>Article wrapper</title>

<programlisting linenumbering="unnumbered">@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &amp;compress ($file);
    }
}

exit;</programlisting>

</article>
</code>
         </pre>
      </article>
      <script src="../../resources/js/prism.js"/>
   </body>
</html>
<html>
   <head>
      <link href="../../resources/css/db-prism.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/default.css" rel="stylesheet" type="text/css"/>
      <link href="../../resources/css/prism.css" rel="stylesheet" type="text/css"/>
      <meta charset="utf-8"/>
      <meta content="DocBook XSL 2.0 Stylesheets Vxxx" name="generator"/>
      <script src="../../resources/js/dbmodnizr.js" type="text/javascript"/>
      <title>Article wrapper</title>
   </head>
   <body>
      <article class="article" id="R.1">
         <header class="article-titlepage">
            <h2>Article wrapper</h2>
         </header>
         <div class="content">
            <p>This test checks that an external file referenced by
<code class="tag-element">textobject</code> is correctly handled.</p>
            <pre class="programlisting language-none line-numbers">
               <code><article xmlns="http://docbook.org/ns/docbook" version="5.0">
<title>Article wrapper</title>

<programlisting linenumbering="unnumbered">@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &amp;compress ($file);
    }
}

exit;</programlisting>

</article>
</code>
            </pre>
         </div>
      </article>
      <script src="../../resources/js/prism.js"/>
   </body>
</html>
The “current” CSS styling is applied to the this entire document; the results in this column may be anomalous. Also, image links are broken in this column. 

Article wrapper

This test checks that an external file referenced by textobject is correctly handled.

<article xmlns="http://docbook.org/ns/docbook" version="5.0">
<title>Article wrapper</title>

<programlisting linenumbering="unnumbered">@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &amp;compress ($file);
    }
}

exit;</programlisting>

</article>

Article wrapper

This test checks that an external file referenced by textobject is correctly handled.

<article xmlns="http://docbook.org/ns/docbook" version="5.0">
<title>Article wrapper</title>

<programlisting linenumbering="unnumbered">@rem = '--*-Perl-*--
@echo off
perl.exe %_batchname %$
goto endofperl
@rem ';

# Compress mail...

require 'n:/home/nwalsh/lib/cygnus.pl';
require 'timelocal.pl';
use Cwd;

select (STDERR); $| = 1;
select (STDOUT); $| = 1;

@DIRS = ("/home/nwalsh/Mail");
while (@DIRS) {
    $dir = shift @DIRS;
    opendir (DIR, $dir);
    while ($fname = readdir(DIR)) {
        $file = "$dir/$fname";
        next if ! -d $file;
        next if $fname =~ /^\.\.?$/;

        print "$file\n";
        push (@DIRS, $file);
        &amp;compress ($file);
    }
}

exit;</programlisting>

</article>

XML source