← Back to branch summary

~ubuntu-branches/ubuntu/lucid/libxml-libxml-perl/lucid

« back to all changes in this revision

Viewing changes to lib/XML/LibXML/Reader.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann, gregor herrmann, Damyan Ivanov
  • Date: 2008-11-29 10:43:03 UTC
  • mfrom: (1.2.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20081129104303-z1jg50ymutx3kgos
Tags: 1.69.ds-1
[ gregor herrmann ]
* New upstream release.
* Set Standards-Version to 3.8.0; add debian/README.source to document quilt
  usage.
* Add a debian/repack.sh script that creates the .ds version from the
  upstream tarball: it removes the debian/ directory and the lines
  referencing it in MANIFEST. Mention the repackaging in
  debian/README.source. Add get-orig-source target to debian/rules.
* debian/watch: extended regexp for matching upstream releases.
* Refresh patch fix_manpage_typos and add a short description.
* Set debhelper compatibility level to 7; adapt
  debian/{control,compat,rules}.
* debian/copyright: switch to new format.
* debian/control:
  - switch Vcs-Browser field to ViewSVN
  - add /me to Uploaders
  - wrap long lines
  - mention module name in long description
  - remove -1 revision from versioned build dependency
  - add ${misc:Depends} to Depends:

[ Damyan Ivanov ]
* add no_linking_with_libm.patch, avoiding unneeded linkage with libm

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/XML/LibXML/Reader.pm
1
1
package XML::LibXML::Reader;
 
2
 
2
3
use XML::LibXML;
3
 
 
 
4
use Carp;
4
5
use strict;
5
6
use warnings;
6
7
 
7
8
use vars qw ($VERSION);
8
 
$VERSION = "1.66"; # VERSION TEMPLATE: DO NOT CHANGE
 
9
$VERSION = "1.69"; # VERSION TEMPLATE: DO NOT CHANGE
9
10
 
10
 
use Carp;
11
11
use 5.008_000;
 
12
 
 
13
BEGIN {
 
14
  UNIVERSAL::can('XML::LibXML::Reader','_newForFile') or
 
15
      croak("Cannot use XML::LibXML::Reader module - ".
 
16
            "your libxml2 is compiled without reader support!");
 
17
}
 
18
 
12
19
use base qw(Exporter);
13
20
use constant {
14
21
    XML_READER_TYPE_NONE => 0,
41
48
};
42
49
use vars qw( @EXPORT @EXPORT_OK %EXPORT_TAGS );
43
50
 
 
51
sub CLONE_SKIP { 1 }
 
52
 
44
53
BEGIN {
45
54
 
46
55
%EXPORT_TAGS = (
218
227
  }
219
228
}
220
229
 
 
230
sub nodePath {
 
231
  my $reader=shift;
 
232
  my $path = $reader->_nodePath;
 
233
  $path=~s/\[\d+\]//g; # make /foo[1]/bar[1] just /foo/bar, since
 
234
                       # sibling count in the buffered fragment is
 
235
                       # basically random and generally misleading
 
236
  return $path;
 
237
}
 
238
 
221
239
1;
222
240
__END__