Help for this page

Select Code to Download


  1. or download this
    "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.
  2. or download this
    sub parsefile {
  my $self = shift;
...
  my $file;
  while(<FILE>) { $file .= $_; }
  ...