From d704f39a0db2dc23790dfd9d7bd59ce9928a6e2c Mon Sep 17 00:00:00 2001 From: "M.J.T. Guy" Date: Thu, 10 Apr 1997 20:55:05 +1200 Subject: Remove 'use UNIVERSAL;', switch to UNIVERSAL::isa() Subject: Re: UNIVERSAL.pm and import methods I wrote > I've a sneaking feeling that I'm the only person who's tried to use > this. And as you might guess from my bug reports, I've learnt the > error of my ways. I spoke too soon. There are three uses in the standard distribution. The attached patch should get rid of them. Probably worth doing this irrespective of how the UNIVERSAL/import question is resolved. p5p-msgid: E0whaZJ-0007BA-00@ursa.cus.cam.ac.uk --- lib/File/Copy.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/File/Copy.pm') diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index b1baa207b3..e95168e24b 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -9,7 +9,6 @@ package File::Copy; use strict; use Carp; -use UNIVERSAL qw(isa); use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION $Too_Big © &syscopy &cp &mv); @@ -48,11 +47,13 @@ sub copy { my $from_a_handle = (ref($from) ? (ref($from) eq 'GLOB' - || isa($from, 'GLOB') || isa($from, 'IO::Handle')) + || UNIVERSAL::isa($from, 'GLOB') + || UNIVERSAL::isa($from, 'IO::Handle')) : (ref(\$from) eq 'GLOB')); my $to_a_handle = (ref($to) ? (ref($to) eq 'GLOB' - || isa($to, 'GLOB') || isa($to, 'IO::Handle')) + || UNIVERSAL::isa($to, 'GLOB') + || UNIVERSAL::isa($to, 'IO::Handle')) : (ref(\$to) eq 'GLOB')); if (!$from_a_handle && !$to_a_handle && -d $to && ! -d $from) { -- cgit v1.2.1