| Subject: | Patch to fix non-Unix (Windows) issues |
Patch so that the module works on Windows (and other non-Unix environs). Also remove warnings on Windows.
20c20
< $VERSION = '1.05_01'; $VERSION = eval $VERSION;
---
> $VERSION = 1.05;
303,306c303,305
<
< my ($vol, $dir, $file) = File::Spec->catdir( $inc_name );
< $dir = File::Spec->catdir( File::Spec->splitdir( $dir || "" ) );
< File::Spec->catpath( $vol, $dir, $file || "" );
---
> my ($vol, $dir, $file) = File::Spec->catdir;
> $dir = File::Spec->catdir( File::Spec->splitdir( $dir ) );
> File::Spec->catpath( $vol, $dir, $file );