require Exporter;
-$VERSION = '1.1004';
+$VERSION = '1.1005';
@ISA = qw(Exporter);
@EXPORT = qw(compare);
@EXPORT_OK = qw(cmp compare_text);
} elsif (ref(\$from) eq 'GLOB') {
*FROM = $from;
} else {
- open(FROM,"<$from") or goto fail_open1;
+ open(FROM,"<",$from) or goto fail_open1;
unless ($text_mode) {
binmode FROM;
$fromsize = -s FROM;
} elsif (ref(\$to) eq 'GLOB') {
*TO = $to;
} else {
- open(TO,"<$to") or goto fail_open2;
+ open(TO,"<",$to) or goto fail_open2;
binmode TO unless $text_mode;
$closeto = 1;
}