diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-09-01 22:16:40 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-09-01 22:16:40 +0000 |
| commit | 631c0b04b5c609df9637f229c202807e3a6dac42 (patch) | |
| tree | af9ea22d84500fcec6dd0b70187bfd9271423e99 | |
| parent | 446288b86cfd3cb78ac6a74098a776aaadfd1207 (diff) | |
| download | perl-631c0b04b5c609df9637f229c202807e3a6dac42.tar.gz | |
change#6791 accidentally clobbered change#6710, put it back
p4raw-link: @6791 on //depot/perl: da147683998a4de28027887441303c16367eda87
p4raw-link: @6710 on //depot/perl: e8d3aa3b2e7edcd352aa3e0d8a884844f9aa9d5e
p4raw-id: //depot/perl@6999
| -rw-r--r-- | win32/win32.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index 687ffe04b8..9fc83c1c71 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3912,6 +3912,9 @@ XS(w32_GetShortPathName) shortpath = sv_mortalcopy(ST(0)); SvUPGRADE(shortpath, SVt_PV); + if (!SvPVX(shortpath) || !SvLEN(shortpath)) + XSRETURN_UNDEF; + /* src == target is allowed */ do { len = GetShortPathName(SvPVX(shortpath), @@ -3941,6 +3944,9 @@ XS(w32_GetFullPathName) filename = ST(0); fullpath = sv_mortalcopy(filename); SvUPGRADE(fullpath, SVt_PV); + if (!SvPVX(fullpath) || !SvLEN(fullpath)) + XSRETURN_UNDEF; + do { len = GetFullPathName(SvPVX(filename), SvLEN(fullpath), |