diff --git a/Koha/Sitemapper.pm b/Koha/Sitemapper.pm
index bbcbad3be3..aae13b409b 100644
--- a/Koha/Sitemapper.pm
+++ b/Koha/Sitemapper.pm
@@ -28,7 +28,7 @@ has url => ( is => 'rw', );
 
 has dir => (
     is => 'rw',
-    default => '.',
+    default => sub { '.' },
     trigger => sub {
         my ($self, $dir) = @_;
         unless (-d $dir) {
@@ -38,15 +38,15 @@ has dir => (
     }
 );
 
-has short => ( is => 'rw', default => 1 );
+has short => ( is => 'rw', default => sub { 1 } );
 
-has verbose => ( is => 'rw', default => 0 );
+has verbose => ( is => 'rw', default => sub { 0 } );
 
 has sth => ( is => 'rw' );
 
 has writer => ( is => 'rw', );
 
-has count => ( is => 'rw', default => 0);
+has count => ( is => 'rw', default => sub { 0 } );
 
 
 sub run {
diff --git a/Koha/Sitemapper/Writer.pm b/Koha/Sitemapper/Writer.pm
index 7e33eb04ba..d00c175c9d 100644
--- a/Koha/Sitemapper/Writer.pm
+++ b/Koha/Sitemapper/Writer.pm
@@ -31,9 +31,9 @@ my $MAX = 50000;
 
 has sitemapper => (is => 'rw', );
 
-has current => ( is => 'rw', default => $MAX );
+has current => ( is => 'rw', default => sub { $MAX } );
 
-has count => ( is => 'rw', default => 0 );
+has count => ( is => 'rw', default => sub { 0 } );
 
 has writer => ( is => 'rw',  );
 
@@ -122,4 +122,4 @@ sub end {
 }
 
 
-1;
\ No newline at end of file
+1;