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/AutoSplit.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/AutoSplit.t')
| -rw-r--r-- | lib/AutoSplit.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/AutoSplit.t b/lib/AutoSplit.t index 256b43f715..7cc680ef75 100644 --- a/lib/AutoSplit.t +++ b/lib/AutoSplit.t @@ -115,7 +115,7 @@ foreach (@tests) { } # test n+1 - is ($output, $args{Get}, "Output from autosplit()ing $args{Name}"); + cmp_ok ($output, 'eq', $args{Get}, "Output from autosplit()ing $args{Name}"); if ($args{Files}) { $args{Files} =~ s!/!:!gs if $^O eq 'MacOS'; |