r8393 - in /branches/upstream/libhtml-display-perl/current: ./ lib/HTML/ lib/HTML/Display/ lib/HTML/Display/Win32/ t/
hanska-guest at users.alioth.debian.org
hanska-guest at users.alioth.debian.org
Sat Oct 20 16:06:08 UTC 2007
Author: hanska-guest
Date: Sat Oct 20 16:06:08 2007
New Revision: 8393
URL: http://svn.debian.org/wsvn/?sc=1&rev=8393
Log:
[svn-upgrade] Integrating new upstream version, libhtml-display-perl (0.39)
Modified:
branches/upstream/libhtml-display-perl/current/Changes
branches/upstream/libhtml-display-perl/current/META.yml
branches/upstream/libhtml-display-perl/current/lib/HTML/Display.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Common.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Debian.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Dump.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Galeon.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Mozilla.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/OSX.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Opera.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Phoenix.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/TempFile.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/IE.pm
branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/OLE.pm
branches/upstream/libhtml-display-perl/current/t/99-pod.t
branches/upstream/libhtml-display-perl/current/t/99-todo.t
branches/upstream/libhtml-display-perl/current/t/99-unix-text.t
branches/upstream/libhtml-display-perl/current/t/embedded-HTML-Display.t
Modified: branches/upstream/libhtml-display-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/Changes?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/Changes (original)
+++ branches/upstream/libhtml-display-perl/current/Changes Sat Oct 20 16:06:08 2007
@@ -1,3 +1,10 @@
+v0.39 - 20071020
+ * Added LICENSE and AUTHOR information, thanks to David Paleino for
+ pointing out that it was missing.
+ * Fix test failure when $ENV{PERL_HTML_DISPLAY_CLASS} was set
+ Test failure reported by Slaven Rezic
+ . No library changes, no need to upgrade
+
v0.38 - 20070906
* Add missing prerequisite of HTML::TokeParser::Simple
Modified: branches/upstream/libhtml-display-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/META.yml?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/META.yml (original)
+++ branches/upstream/libhtml-display-perl/current/META.yml Sat Oct 20 16:06:08 2007
@@ -1,15 +1,18 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: HTML-Display
-version: 0.38
-version_from: lib/HTML/Display.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: HTML-Display
+version: 0.39
+abstract: display HTML locally in a browser
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.36_01
+distribution_type: module
+requires:
HTML::TokeParser::Simple: 2
LWP: 5.69
parent: 0.218
Test::Harness: 2.3
URI::URL: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
+author:
+ - Max Maischein <corion at cpan.org>
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display.pm Sat Oct 20 16:06:08 2007
@@ -3,7 +3,7 @@
use HTML::TokeParser;
use Carp qw( croak );
use vars qw( $VERSION );
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -14,6 +14,7 @@
=for example
my $html = "foo\n";
%HTML::Display::os_default = ();
+ delete $ENV{PERL_HTML_DISPLAY_CLASS};
=for example begin
@@ -24,6 +25,7 @@
# or $ENV{PERL_HTML_DISPLAY_COMMAND}
# or the operating system, in that order
my $browser = HTML::Display->new();
+ warn "# Displaying HTML using " . ref $browser;
my $location = "http://www.google.com/";
$browser->display(html => $html, location => $location);
@@ -187,6 +189,15 @@
perl -MLWP::Simple -MHTML::Display -e "display html => get('http://www.google.com'),
location => 'http://www.google.com'"
-=cut
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Common.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Common.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Common.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Common.pm Sat Oct 20 16:06:08 2007
@@ -10,7 +10,7 @@
use HTML::TokeParser;
use URI::URL;
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
use Carp qw( croak );
=head2 __PACKAGE__-E<gt>new %ARGS
@@ -199,4 +199,15 @@
$self->display_html($new_html);
};
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Debian.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Debian.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Debian.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Debian.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::TempFile';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -24,4 +24,14 @@
sub browsercmd { "x-www-browser %s" };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Dump.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Dump.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Dump.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Dump.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::Common';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -31,4 +31,14 @@
sub display_html { print $_[1]; };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Galeon.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Galeon.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Galeon.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Galeon.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::TempFile';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -21,4 +21,14 @@
sub browsercmd { "galeon -n %s" };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Mozilla.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Mozilla.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Mozilla.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Mozilla.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::TempFile';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -21,4 +21,14 @@
sub browsercmd { 'mozilla -remote "openURL(%s)"' };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/OSX.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/OSX.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/OSX.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/OSX.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::TempFile';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -23,4 +23,14 @@
sub browsercmd { "open %s" };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Opera.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Opera.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Opera.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Opera.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::TempFile';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -25,4 +25,14 @@
sub browsercmd { "opera %s" };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Phoenix.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Phoenix.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Phoenix.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Phoenix.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::TempFile';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -21,4 +21,14 @@
sub browsercmd { "phoenix %s" };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/TempFile.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/TempFile.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/TempFile.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/TempFile.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::Common';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -53,4 +53,14 @@
sub browsercmd { $_[0]->{browsercmd} };
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32.pm Sat Oct 20 16:06:08 2007
@@ -1,7 +1,7 @@
package HTML::Display::Win32;
use strict;
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -33,4 +33,14 @@
($ENV{COMSPEC} =~ /cmd.exe$/i) ? 'start "HTML::Display" "%s"' : 'start "%s"'
};
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/IE.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/IE.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/IE.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/IE.pm Sat Oct 20 16:06:08 2007
@@ -3,7 +3,7 @@
use Carp qw(carp);
use parent 'HTML::Display::Win32::OLE';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -50,4 +50,14 @@
};
};
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/OLE.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/OLE.pm?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/OLE.pm (original)
+++ branches/upstream/libhtml-display-perl/current/lib/HTML/Display/Win32/OLE.pm Sat Oct 20 16:06:08 2007
@@ -2,7 +2,7 @@
use strict;
use parent 'HTML::Display::Common';
use vars qw($VERSION);
-$VERSION='0.38';
+$VERSION='0.39';
=head1 NAME
@@ -68,4 +68,14 @@
$self->{control};
};
+=head1 AUTHOR
+
+Copyright (c) 2004-2007 Max Maischein C<< <corion at cpan.org> >>
+
+=head1 LICENSE
+
+This module is released under the same terms as Perl itself.
+
+=cut
+
1;
Modified: branches/upstream/libhtml-display-perl/current/t/99-pod.t
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/t/99-pod.t?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/t/99-pod.t (original)
+++ branches/upstream/libhtml-display-perl/current/t/99-pod.t Sat Oct 20 16:06:08 2007
@@ -23,8 +23,8 @@
plan skip_all => "Test::Pod 0.95 required for testing POD";
}
else {
- my $blib = File::Spec->catfile(qw(blib lib));
- find(\&wanted, $blib, 'bin');
+ my @dirs = grep { -d } (File::Spec->catfile(qw(blib lib)), 'bin', 'scripts');
+ find(\&wanted, @dirs);
plan tests => scalar @files;
foreach my $file (@files) {
pod_file_ok($file);
Modified: branches/upstream/libhtml-display-perl/current/t/99-todo.t
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/t/99-todo.t?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/t/99-todo.t (original)
+++ branches/upstream/libhtml-display-perl/current/t/99-todo.t Sat Oct 20 16:06:08 2007
@@ -11,7 +11,7 @@
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
-find(\&wanted, $blib, 'bin');
+find(\&wanted, $blib);
plan tests => scalar @files;
foreach my $file (@files) {
source_file_ok($file);
Modified: branches/upstream/libhtml-display-perl/current/t/99-unix-text.t
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/t/99-unix-text.t?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/t/99-unix-text.t (original)
+++ branches/upstream/libhtml-display-perl/current/t/99-unix-text.t Sat Oct 20 16:06:08 2007
@@ -10,7 +10,7 @@
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
-find(\&wanted, $blib, 'bin');
+find(\&wanted, $blib);
plan tests => scalar @files;
foreach my $file (@files) {
unix_file_ok($file);
Modified: branches/upstream/libhtml-display-perl/current/t/embedded-HTML-Display.t
URL: http://svn.debian.org/wsvn/branches/upstream/libhtml-display-perl/current/t/embedded-HTML-Display.t?rev=8393&op=diff
==============================================================================
--- branches/upstream/libhtml-display-perl/current/t/embedded-HTML-Display.t (original)
+++ branches/upstream/libhtml-display-perl/current/t/embedded-HTML-Display.t Sat Oct 20 16:06:08 2007
@@ -1,17 +1,17 @@
-#!/opt/perl58/bin/perl -w
+#!/opt/perl/bin/perl -w
use Test::More 'no_plan';
package Catch;
sub TIEHANDLE {
- my($class, $var) = @_;
- return bless { var => $var }, $class;
+ my($class, $var) = @_;
+ return bless { var => $var }, $class;
}
sub PRINT {
- my($self) = shift;
- ${'main::'.$self->{var}} .= join '', @_;
+ my($self) = shift;
+ ${'main::'.$self->{var}} .= join '', @_;
}
sub OPEN {} # XXX Hackery in case the user redirects
@@ -31,21 +31,7 @@
tie *STDOUT, 'Catch', '_STDOUT_' or die $!;
tie *STDERR, 'Catch', '_STDERR_' or die $!;
-SKIP: {
- # A header testing whether we find all prerequisites :
- # Check for module HTML::Display
- eval { require HTML::Display };
- skip "Need module HTML::Display to run this test", 1
- if $@;
-
- # Check for module strict
- eval { require strict };
- skip "Need module strict to run this test", 1
- if $@;
-
-
- # The original POD test
- undef $main::_STDOUT_;
+ undef $main::_STDOUT_;
undef $main::_STDERR_;
eval q{
my $example = sub {
@@ -54,6 +40,7 @@
#line 15 lib/HTML/Display.pm
my $html = "foo\n";
%HTML::Display::os_default = ();
+ delete $ENV{PERL_HTML_DISPLAY_CLASS};
@@ -64,6 +51,7 @@
# or $ENV{PERL_HTML_DISPLAY_COMMAND}
# or the operating system, in that order
my $browser = HTML::Display->new();
+ warn "# Displaying HTML using " . ref $browser;
my $location = "http://www.google.com/";
$browser->display(html => $html, location => $location);
@@ -79,27 +67,13 @@
};
is($@, '', "example from line 15");
-};
-SKIP: {
- # A header testing whether we find all prerequisites :
- # Check for module HTML::Display
- eval { require HTML::Display };
- skip "Need module HTML::Display to run this test", 1
- if $@;
-
- # Check for module strict
- eval { require strict };
- skip "Need module strict to run this test", 1
- if $@;
-
-
- # The original POD test
- {
+{
undef $main::_STDOUT_;
undef $main::_STDERR_;
#line 15 lib/HTML/Display.pm
my $html = "foo\n";
%HTML::Display::os_default = ();
+ delete $ENV{PERL_HTML_DISPLAY_CLASS};
@@ -110,6 +84,7 @@
# or $ENV{PERL_HTML_DISPLAY_COMMAND}
# or the operating system, in that order
my $browser = HTML::Display->new();
+ warn "# Displaying HTML using " . ref $browser;
my $location = "http://www.google.com/";
$browser->display(html => $html, location => $location);
@@ -125,26 +100,16 @@
undef $main::_STDERR_;
}
-};
-SKIP: {
- # A header testing whether we find all prerequisites :
-
- # The original POD test
- undef $main::_STDOUT_;
+ undef $main::_STDOUT_;
undef $main::_STDERR_;
-};
-SKIP: {
- # A header testing whether we find all prerequisites :
-
- # The original POD test
- undef $main::_STDOUT_;
+ undef $main::_STDOUT_;
undef $main::_STDERR_;
eval q{
my $example = sub {
local $^W = 0;
-#line 79 lib/HTML/Display.pm
+#line 81 lib/HTML/Display.pm
# Install class for MagicOS
$HTML::Display::os_default{"HTML::Display::MagicOS"}
@@ -154,14 +119,8 @@
}
};
-is($@, '', "example from line 79");
+is($@, '', "example from line 81");
-};
-SKIP: {
- # A header testing whether we find all prerequisites :
-
- # The original POD test
- undef $main::_STDOUT_;
+ undef $main::_STDOUT_;
undef $main::_STDERR_;
-};
More information about the Pkg-perl-cvs-commits
mailing list