Not to sound too fussy here, but my experience so far with Net::Jabber is less than great. A simple script using it produces several errors stemming from careless code in XML::Stream::Parser:

"my" variable $file masks earlier declaration in same scope at /usr/lo
+cal/lib/perl5/site_perl/5.6.1/XML/Stream/Parser.pm line 298.

Use of uninitialized value in string ne at /usr/local/lib/perl5/site_p
+erl/5.6.1/XML/Stream/Parser.pm line 134.

Use of uninitialized value in split at /usr/local/lib/perl5/site_perl/
+5.6.1/Net/Jabber.pm line 759.
[download]

Is this package supported? If so, why are errors like the first one still present? (It results from this code:

sub parsefile {
  my $self = shift;
  my $file = shift;

  open(FILE,$file);
  my $file;
  while(<FILE>) { $file .= $_; }
  ...
[download]

Note the two appearances of "my $file".

Edit by tye to replace PRE tags with CODE tags