Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix for perl 5.14

GvCV is no longer an lvalue in 5.14, adapt for that
  • Loading branch information...
commit 8273a2d220af8509caab80dc581a1cddc997ed3f 1 parent 6c37530
@Leont authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 perl++/source/glob.C
View
6 perl++/source/glob.C
@@ -1,6 +1,10 @@
#include "internal.h"
#include <perl++/perl++.h>
+#ifndef GvCV_set
+#define GvCV_set(gv, cv) (GvCV(gv) = cv)
+#endif
+
namespace perl {
Glob::Glob(interpreter* _interp, GV* _handle) : interp(_interp), handle(_handle) {
}
@@ -39,7 +43,7 @@ namespace perl {
SvREFCNT_dec(reinterpret_cast<SV*>(GvCV(handle)));
}
SvREFCNT_inc(reinterpret_cast<SV*>(other.handle));
- GvCV(handle) = other.handle;
+ GvCV_set(handle, other.handle);
return *this;
}
Raw_string Glob::name() const {
Please sign in to comment.
Something went wrong with that request. Please try again.