Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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
Leon Timmermans authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 perl++/source/glob.C
6 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 {
Please sign in to comment.
Something went wrong with that request. Please try again.