In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0a9cc54c57f019e71d784ddfbc4eba91efb22770?hp=a4e8ab8ad81a8e9c3cfd67d6cfa22e2122a58117>
- Log ----------------------------------------------------------------- commit 0a9cc54c57f019e71d784ddfbc4eba91efb22770 Author: Steve Hay <[email protected]> Date: Tue Dec 30 12:00:54 2014 +0000 Remove sources of "unreferenced label" warning on Win32 and then remove the disabling of that warning. ----------------------------------------------------------------------- Summary of changes: pp_sys.c | 2 ++ win32/win32.c | 1 - win32/win32.h | 2 -- 3 files changed, 2 insertions(+), 3 deletions(-) diff --git a/pp_sys.c b/pp_sys.c index c81e67f..5f00bbe 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -3633,11 +3633,13 @@ PP(pp_chdir) #endif RETURN; +#ifdef HAS_FCHDIR nuts: report_evil_fh(gv); SETERRNO(EBADF,RMS_IFI); PUSHi(0); RETURN; +#endif } diff --git a/win32/win32.c b/win32/win32.c index 6024623..1510805 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3247,7 +3247,6 @@ win32_chsize(int fd, Off_t size) retval = -1; } } -finish: win32_lseek(fd, cur, SEEK_SET); return retval; #else diff --git a/win32/win32.h b/win32/win32.h index 2d5eda9..5a48b0b 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -243,8 +243,6 @@ typedef long gid_t; typedef unsigned short mode_t; #endif -#pragma warning(disable: 4102) /* "unreferenced label" */ - #if _MSC_VER < 1800 #define isnan _isnan /* Defined already in VC++ 12.0 */ #endif -- Perl5 Master Repository
