This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence 4 "unreferenced local variable" warnings from VC++
authorSteve Hay <SteveHay@planit.com>
Tue, 28 Nov 2006 14:58:14 +0000 (14:58 +0000)
committerSteve Hay <SteveHay@planit.com>
Tue, 28 Nov 2006 14:58:14 +0000 (14:58 +0000)
p4raw-id: //depot/perl@29406

ext/Time/Piece/Piece.pm
ext/Time/Piece/Piece.xs

index b7e4327..a3c4bfa 100644 (file)
@@ -22,7 +22,7 @@ our %EXPORT_TAGS = (
     ':override' => 'internal',
     );
 
-our $VERSION = '1.11';
+our $VERSION = '1.11_01';
 
 bootstrap Time::Piece $VERSION;
 
index ad265d2..fa97c4c 100644 (file)
@@ -799,7 +799,7 @@ MODULE = Time::Piece     PACKAGE = Time::Piece
 
 PROTOTYPES: ENABLE
 
-char *
+void
 _strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
     char *        fmt
     int        sec
@@ -886,12 +886,9 @@ _strptime ( string, format )
        char * string
        char * format
   PREINIT:
-       char tmpbuf[128];
        struct tm mytm;
        time_t t;
        char * remainder;
-       int len;
-       int tzdiff;
   PPCODE:
        t = 0;
        mytm = *gmtime(&t);