diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-12-18 02:27:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-12-18 02:27:10 +0000 |
| commit | 7cb420191309ad69a81b6ee87235753ed843b9e6 (patch) | |
| tree | a23d59684f5cab5e0a349777d9df68e47e1cbe0d /win32 | |
| parent | 4a9d61009ab1e3df94ef4ecfcc453c9ce73010a4 (diff) | |
| download | perl-7cb420191309ad69a81b6ee87235753ed843b9e6.tar.gz | |
fix for GPF in C<print Win32::GetFullPathName('\\\\host\share')>
p4raw-id: //depot/perl@18328
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/win32/win32.c b/win32/win32.c index 556d62145c..44642e615b 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4677,8 +4677,13 @@ XS(w32_GetFullPathName) if (len) { if (GIMME_V == G_ARRAY) { EXTEND(SP,1); - XST_mPV(1,filepart); - len = filepart - SvPVX(fullpath); + if (filepart) { + XST_mPV(1,filepart); + len = filepart - SvPVX(fullpath); + } + else { + XST_mPVN(1,"",0); + } items = 2; } SvCUR_set(fullpath,len); |