diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-01-10 22:35:51 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-11 13:24:13 +0000 |
| commit | 4940c44306f1533e993cbca6152c66067eca02ca (patch) | |
| tree | 324ee5229a166c2e8a26100566c6e0c03d6b56a9 /lib/blib.t | |
| parent | a9153838573937ae6673c59472b70743ddaf741a (diff) | |
| download | perl-4940c44306f1533e993cbca6152c66067eca02ca.tar.gz | |
[PATCH] is() undef/'' behavior change
Date: Fri, 11 Jan 2002 03:35:51 -0500
Message-ID: <20020111083551.GC30666@blackrider>
Subject: [PATCH] Pod::InputObjects warnings & is() undef/'' fix
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 11 Jan 2002 03:37:44 -0500
Message-ID: <20020111083744.GD30666@blackrider>
p4raw-id: //depot/perl@14179
Diffstat (limited to 'lib/blib.t')
| -rw-r--r-- | lib/blib.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/blib.t b/lib/blib.t index 4e0d3ea713..bb269c443f 100644 --- a/lib/blib.t +++ b/lib/blib.t @@ -30,7 +30,7 @@ ok( $@ =~ /Cannot find blib/, 'Fails if blib directory not found' ); _mkdirs(qw(blib blib/arch blib/lib)); { - my $warnings; + my $warnings = ''; local $SIG{__WARN__} = sub { $warnings = join '', @_ }; use_ok('blib'); is( $warnings, '', 'use blib is niiiice and quiet' ); |