Permalink
Browse files

Fix for perl 5.14

GvCV is no longer an lvalue in 5.14, adapt for that
  • Loading branch information...
1 parent 6c37530 commit 8273a2d220af8509caab80dc581a1cddc997ed3f @Leont committed Oct 13, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 perl++/source/glob.C
View
@@ -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 {

0 comments on commit 8273a2d

Please sign in to comment.