bindings/perl: Fix RPATH and examples

robotology · Jan 10, 2020 · 5fbea1e · 5fbea1e
1 parent d58a812
commit 5fbea1e
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 3 deletions.
diff --git a/bindings/perl/CMakeLists.txt b/bindings/perl/CMakeLists.txt
@@ -39,7 +39,7 @@ set_target_properties(${SWIG_MODULE_yarp_perl_REAL_NAME} PROPERTIES PREFIX ""
 
 # Update RPATH
 if(NOT CMAKE_SKIP_RPATH AND NOT CMAKE_SKIP_INSTALL_RPATH)
-  file(RELATIVE_PATH _rel_path "${CMAKE_INSTALL_FULL_PERLDIR}" "${CMAKE_INSTALL_FULL_LIBDIR}")
+  file(RELATIVE_PATH _rel_path "${CMAKE_INSTALL_FULL_PERLDIR}/auto/yarp" "${CMAKE_INSTALL_FULL_LIBDIR}")
   get_target_property(_current_rpath "${SWIG_MODULE_yarp_perl_REAL_NAME}" INSTALL_RPATH)
   if (${CMAKE_SYSTEM_NAME} MATCHES "Darwin")
     list(APPEND _current_rpath "@loader_path/${_rel_path}")

diff --git a/bindings/perl/examples/example.pl b/bindings/perl/examples/example.pl
@@ -28,7 +28,7 @@
     $bottle->addInt32($top);
     print "Sending ", $bottle->toString(), "\n";
     $p->write();
-    yarp::Time::delay(0.5);
+    yarp::delay(0.5);
 }
 
 $p->close();

diff --git a/bindings/perl/examples/example2.pl b/bindings/perl/examples/example2.pl
@@ -23,7 +23,7 @@
 my $dev = new yarp::PolyDriver($prop);
 
 # get the "IFrameGrabberImage" interface
-my $grabber = $dev->viewFrameGrabberImage();
+my $grabber = $dev->viewIFrameGrabberImage();
 
 # grab 30 images
 my $img = new yarp::ImageRgb();

diff --git a/doc/release/yarp_3_3/fixPerlBindings.md b/doc/release/yarp_3_3/fixPerlBindings.md
@@ -0,0 +1,8 @@
+fixPerlBindings {#yarp_3_3}
+---------------
+
+### Bindings
+
+#### Perl
+
+* The RPATH for installed perl bindings is now correct.