summaryrefslogtreecommitdiff
path: root/lib/File/Copy.pm
diff options
context:
space:
mode:
authorM.J.T. Guy <mjtg@cus.cam.ac.uk>1997-04-10 20:55:05 +1200
committerTim Bunce <Tim.Bunce@ig.co.uk>1997-08-07 00:00:00 +1200
commitd704f39a0db2dc23790dfd9d7bd59ce9928a6e2c (patch)
tree7806b0de54acfde8d52e79012c303d76ce9b9036 /lib/File/Copy.pm
parent3bb63ce62db2f3ee2964b123e979675f768f552c (diff)
downloadperl-d704f39a0db2dc23790dfd9d7bd59ce9928a6e2c.tar.gz
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
Diffstat (limited to 'lib/File/Copy.pm')
-rw-r--r--lib/File/Copy.pm7
1 files changed, 4 insertions, 3 deletions
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
&copy &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) {