diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-12-17 22:56:25 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-12-17 22:56:25 +0000 |
| commit | f2ed23b0151110f1c19629c6dc22479b1c87def4 (patch) | |
| tree | f303b2d1fb6bccc50612eb180c527b65c80bc275 /util.h | |
| parent | 7e736055d1d6da7ec885d3dacef1bcc5e5ef4282 (diff) | |
| download | perl-f2ed23b0151110f1c19629c6dc22479b1c87def4.tar.gz | |
integrate change#18320 from maint-5.6 branch
C<require '\foo\bar.pm'> fails on windows if not running
from the root directory; for a test case, see:
http://bugs.activestate.com/show_bug.cgi?id=19317
this was due to not recognizing \foo\bar.pm as an absolute
path name
p4raw-link: @18320 on //depot/maint-5.6/perl: b900fc1f8c2531fe3108ef7a9cc5b4590a5dc7f6
p4raw-id: //depot/perl@18321
p4raw-integrated: from //depot/maint-5.6/perl@18319 'merge in' util.h
(@9288..)
Diffstat (limited to 'util.h')
| -rw-r--r-- | util.h | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -17,9 +17,8 @@ #else /* !VMS */ # ifdef WIN32 # define PERL_FILE_IS_ABSOLUTE(f) \ - (*(f) == '/' \ - || ((f)[0] && (f)[1] == ':') /* drive name */ \ - || ((f)[0] == '\\' && (f)[1] == '\\')) /* UNC path */ + (*(f) == '/' || *(f) == '\\' /* UNC/rooted path */ \ + || ((f)[0] && (f)[1] == ':')) /* drive name */ # else /* !WIN32 */ # ifdef NETWARE # define PERL_FILE_IS_ABSOLUTE(f) \ |