Eliminate various warnings

These changes eliminate various warnings that show up on modern
compilers.

Author: Leont

perl++/source/exporter.C

@@ -8,22 +8,21 @@ namespace perl {
 		void* get_magic_ptr(const MAGIC* magic) {
 			return magic->mg_ptr;
 		}
-		void* get_magic_ptr(interpreter* interp, SV* var, int min_length) {
+		void* get_magic_ptr(interpreter*, SV* var, int min_length) {
 			const MAGIC* magic = mg_find(var, PERL_MAGIC_ext);
 			if (magic == NULL || magic->mg_ptr == NULL || ( magic->mg_len < min_length && magic->mg_len != 0 ) ) {
 				throw Runtime_exception("Magic error");
 			}
 			return magic->mg_ptr;
 		}
-		const Raw_string get_magic_string(interpreter* interp, SV* var) {
+		const Raw_string get_magic_string(interpreter*, SV* var) {
 			const MAGIC* tmp = mg_find(var, PERL_MAGIC_ext);
 			return tmp != NULL ? Raw_string(tmp->mg_ptr, tmp->mg_len, false) : Raw_string(NULL, 0, false);
 		}
-		bool has_magic_string(interpreter* interp, SV* var) {
+		bool has_magic_string(interpreter*, SV* var) {
 			return mg_find(var, PERL_MAGIC_ext) != NULL;
 		}
 		bool has_magic_string(const Scalar::Base& var) {
-			interpreter* const interp = var.interp;
 			return mg_find(var.get_SV(false), PERL_MAGIC_ext) != NULL;
 		}
 		void set_magic_string(interpreter* interp, SV* var, Raw_string string) {
@@ -40,7 +39,7 @@ namespace perl {
 			SV* const ret = newRV_noinc(referee);
 			return sv_bless(ret, gv_stashpv(state.classname, true));
 		}
-		void* get_magic_object_impl(interpreter* interp, SV* var, int min_length) {
+		void* get_magic_object_impl(interpreter*, SV* var, int min_length) {
 			MAGIC* tmp = mg_find(SvRV(var), PERL_MAGIC_ext);
 			if (tmp == NULL || tmp->mg_ptr == NULL || tmp->mg_len < min_length) {
 				throw Not_an_object_exception();

t/10-integer.C

@@ -21,7 +21,7 @@ int main() {
 
 	ok(value + 1, "value + 1");
 	not_ok(value - 1, "not: value - 1");
-	ok(value * 1, "value * 1");
+	is(value * 1, 1, "value * 1");
 	ok(value / 1, "value / 1");
 
 	note("++value");

t/10-number.C

@@ -24,7 +24,7 @@ int main() {
 	ok(!(value != 1), "not: value != 1");
 
 	ok(value + 1, "value + 1");
-	ok(value * 1, "value * 1");
+	is(value * 1, 1, "value * 1");
 	ok(value / 1, "value / 1");
 
 	note("value -= 3");

t/10-uinteger.C

@@ -5,41 +5,39 @@ using namespace perl;
 using namespace TAP;
 
 int main() {
-	plan(17);
+	plan(15);
 	Interpreter universe;
 	Uinteger value = universe.value_of(1u);
 
 	ok(value, "value");
-	is(value, 1, "value == 1");
 	is(value, 1u, "value == 1u");
-	is(value, 1l, "value == 1l");
 
 	ok(value > 0u, "value > 0");
 	ok(value < 2u, "value < 2");
 	not_ok(value != 1, "not: value != 1");
 
 	ok(value + 1, "value + 1");
 	not_ok(value - 1, "not: value - 1");
-	ok(value * 1, "value * 1");
+	is(value * 1u, 1u, "value * 1");
 	ok(value / 1, "value / 1");
 
 	note("++value");
 	++value;
 	ok(value, "value");
-	is(value, 2, "value == 2");
+	is(value, 2u, "value == 2");
 	not_ok(value != 2, "not: value != 2");
 
 	note("--value");
 	--value;
-	is(value, 1, "value == 1");
+	is(value, 1u, "value == 1");
 
 	note("value++");
 	value++;
-	is(value, 2, "value == 2");
+	is(value, 2u, "value == 2");
 
 	note("value -= 2");
-	value -= 2;
-	is(value, 0, "value == 0");
+	value -= 2u;
+	is(value, 0u, "value == 0");
 
 	return exit_status();
 }

t/50-function-exports.C

@@ -36,10 +36,10 @@ const Scalar::Temp eigth(Array args) {
 	return args[0];
 }
 
-void ninth(const char* arg) {
+void ninth(const char*) {
 }
 
-void tenth(const std::string& arg){
+void tenth(const std::string&){
 }
 
 int main() {