diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2005-07-02 16:11:46 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-02 16:11:46 +0000 |
| commit | 8878f897ac9d9fa8a7f8ad4a14238341d36a293c (patch) | |
| tree | f5466782bcd60aea629758a5cb7abfece8eca895 /lib/File/Compare.pm | |
| parent | 82bb6deb04ad3686538ac7e9262c77a8ab0aa822 (diff) | |
| download | perl-8878f897ac9d9fa8a7f8ad4a14238341d36a293c.tar.gz | |
do just-in-time loading of Carp.pm in some modules
Subject: [PATCH] No Carp #4 AutoSplit.pm
Subject: [PATCH] no Carp #5 (File::Path)
Subject: [PATCH] no Carp #7 - charnames.pm
Subject: [PATCH] no Carp #6 (File::Compare, File::Copy, File::Temp)
Subject: [PATCH] no Carp #8 - SelfLoader, Text/Balanced and open.pm
p4raw-id: //depot/perl@25052
Diffstat (limited to 'lib/File/Compare.pm')
| -rw-r--r-- | lib/File/Compare.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/File/Compare.pm b/lib/File/Compare.pm index 0b73d7c765..bcc996ee3a 100644 --- a/lib/File/Compare.pm +++ b/lib/File/Compare.pm @@ -6,15 +6,19 @@ use warnings; our($VERSION, @ISA, @EXPORT, @EXPORT_OK, $Too_Big); require Exporter; -use Carp; -$VERSION = '1.1003'; +$VERSION = '1.1004'; @ISA = qw(Exporter); @EXPORT = qw(compare); @EXPORT_OK = qw(cmp compare_text); $Too_Big = 1024 * 1024 * 2; +sub croak { + require Carp; + goto &Carp::croak; +} + sub compare { croak("Usage: compare( file1, file2 [, buffersize]) ") unless(@_ == 2 || @_ == 3); |