On 02/11/2015 12:55 PM, Debra S Baddorf wrote:
Oh — wake up call for me — I had just that same error trying to compile amanda
3.3.7
on my RedHat based system two days ago. Scientific Linux Fermi release 6.4
(Ramsey)
(Oh, you said RHEL 5.11 so that’s RedHat too).
This reply no longer contains the patch. Jean-Louis, can you send the patch
again,
and I’ll try again on amanda 3.3.7 ?
Deb Baddorf
Fermilab
On Feb 11, 2015, at 11:27 AM, Bernhard Erdmann <[email protected]> wrote:
Hello Jean-Louis,
thanks for your patch. It helped me to get amanda 3.3.7 up and running on an
RHEL 5.11 machine. Without your patch, I had the same problem as Jens.
Am 26.01.15 um 16:14 schrieb Jean-Louis Martineau:
Jens,
Try the attached patch.
Jean-Louis
On 01/26/2015 10:00 AM, Jens Berg wrote:
Hi list,
I compiled amanda 3.3.7 from source which completed successfully.
However, each time I run a command which utilizes libUtil.so, e.g.
amlabel or amcheck I get the following error message:
/usr/bin/perl: symbol lookup error:
/usr/local/share/perl/5.14.2/auto/Amanda/Util/libUtil.so: undefined
symbol: struct_file_lock_lock
/usr/bin/perl -v tells me it's a 5.14.2
Looks like some SWIG weirdness to me but I'm not experienced enough to
figure out what the real problem is. Do I miss a library or the path
to it?
I already did "make clean; make; sudo make install" but without success.
The system I run amanda on is the same machine I used for compiling.
It's a Debian 7.8.0 32-bit (3.2.0-4-686-pae #1 SMP Debian
3.2.65-1+deb7u1 i686 GNU/Linux) with Perl 5.14.2 and gcc (Debian
4.7.2-5) 4.7.2
Any ideas what could be wrong?
Jens
diff --git a/perl/Amanda/Cmdline.swg b/perl/Amanda/Cmdline.swg
index 35d931d..fcbe377 100644
--- a/perl/Amanda/Cmdline.swg
+++ b/perl/Amanda/Cmdline.swg
@@ -35,7 +35,7 @@
%}
/* Add a few methods to make this type act like a class */
-typedef struct dumpspec_t {
+typedef struct {
%immutable;
char *host;
char *disk;
diff --git a/perl/Amanda/Device.swg b/perl/Amanda/Device.swg
index eb581a9..bdcfc12 100644
--- a/perl/Amanda/Device.swg
+++ b/perl/Amanda/Device.swg
@@ -243,7 +243,7 @@ set_gvalue_from_sv(SV *sv, GValue *value)
* DirectTCPConnection object
*/
-typedef struct DirectTCPConnection {
+typedef struct {
%extend {
~DirectTCPConnection() {
g_object_unref(self);
@@ -262,7 +262,7 @@ typedef struct DirectTCPConnection {
%name(unaliased_name) extern char *device_unaliased_name(char *);
-typedef struct Device {
+typedef struct {
/* methods */
%extend {
diff --git a/perl/Amanda/MainLoop.swg b/perl/Amanda/MainLoop.swg
index f040de6..85aae9d 100644
--- a/perl/Amanda/MainLoop.swg
+++ b/perl/Amanda/MainLoop.swg
@@ -356,7 +356,7 @@ void quit(void) {
%{ static void amglue_source_remove(amglue_Source *self); %}
%rename(Source) amglue_Source;
-typedef struct amglue_Source {
+typedef struct {
%extend {
/* Constructor: use one of the package-level functions, below */
amglue_Source() {
diff --git a/perl/Amanda/NDMP.swg b/perl/Amanda/NDMP.swg
index d43ebb0..0c6b1f2 100644
--- a/perl/Amanda/NDMP.swg
+++ b/perl/Amanda/NDMP.swg
@@ -93,7 +93,7 @@ typedef guint ndmp_enum;
SP -= argvi; argvi++;
}
-typedef struct NDMPConnection {
+typedef struct {
/* methods */
%extend {
/* constructor */
diff --git a/perl/Amanda/Util.swg b/perl/Amanda/Util.swg
index 6cf255e..4b93d5d 100644
--- a/perl/Amanda/Util.swg
+++ b/perl/Amanda/Util.swg
@@ -462,7 +462,7 @@ set_blocking(int fd, gboolean blocking)
/* SWIG prepends the struct name to the member function name, which
* conflicts with the underlying function names */
-typedef struct file_lock {
+typedef struct {
%extend {
%newobject file_lock;
file_lock(const char *filename) {
