diff --git a/perl/Amanda/Xfer.swg b/perl/Amanda/Xfer.swg
index 522d61f..352c5e9 100644
--- a/perl/Amanda/Xfer.swg
+++ b/perl/Amanda/Xfer.swg
@@ -513,16 +513,16 @@ xfer_get_amglue_source(
 /* First, a few macros to generate decent Perl */
 
 %define PACKAGE(PKG)
-%perlcode {
+%perlcode %{
 package PKG;
-}
+%}
 %enddef
 
 %define XFER_ELEMENT_SUBCLASS_OF(PARENT)
-%perlcode {
+%perlcode %{
 use vars qw(@ISA);
 @ISA = qw( PARENT );
-}
+%}
 %enddef
 
 %define XFER_ELEMENT_SUBCLASS()
@@ -530,28 +530,28 @@ XFER_ELEMENT_SUBCLASS_OF(Amanda::Xfer::Element)
 %enddef
 
 %define DECLARE_CONSTRUCTOR(C_CONSTRUCTOR)
-%perlcode {
+%perlcode %{
 sub new { 
     my $pkg = shift;
     # The C function adds the proper blessing -- this function
     # just gets $pkg out of the way.
     C_CONSTRUCTOR(@_);
 }
-}
+%}
 %enddef
 
 %define OVERLOAD_REPR()
-%perlcode {
+%perlcode %{
 use overload '""' => sub { $_[0]->repr(); };
 # overload comparison, so users can ask if one obj == another
 use overload '==' => sub {     Amanda::Xfer::same_elements($_[0], $_[1]); };
 use overload '!=' => sub { not Amanda::Xfer::same_elements($_[0], $_[1]); };
-}
+%}
 %enddef
 
 %define DECLARE_METHOD(METHOD_NAME, C_FUNCTION)
-%perlcode {*METHOD_NAME = *C_FUNCTION;
-}
+%perlcode %{*METHOD_NAME = *C_FUNCTION;
+%}
 %enddef
 
 /* And now define the required perl classes */