This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
eliminate an unused variable
authorTony Cook <tony@develop-help.com>
Mon, 3 Jun 2013 11:57:29 +0000 (21:57 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 3 Jun 2013 11:57:29 +0000 (21:57 +1000)
ext/POSIX/POSIX.xs
ext/POSIX/lib/POSIX.pm

index 745cc90..e4c9e88 100644 (file)
@@ -704,7 +704,6 @@ static XSPROTO(is_common); /* prototype to pass -Wmissing-prototypes */
 static XSPROTO(is_common)
 {
     dXSARGS;
 static XSPROTO(is_common)
 {
     dXSARGS;
-    SV *charstring;
     if (items != 1)
        croak_xs_usage(cv,  "charstring");
 
     if (items != 1)
        croak_xs_usage(cv,  "charstring");
 
index 71577c6..a7dde14 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 
 our ($AUTOLOAD, %SIGRT);
 
 
 our ($AUTOLOAD, %SIGRT);
 
-our $VERSION = '1.32';
+our $VERSION = '1.33';
 
 require XSLoader;
 
 
 require XSLoader;