X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FFile.pm;h=25c6d96c1505161083ca14fda253d879f31172d6;hb=249c0c6f38350cc67eb2304538aa4ef7f329eb79;hp=830559460898609c55e3e583686f52ccfafff744;hpb=74d8dd6f77ff33f496cac0fc1c715c167232a5ca;p=kivitendo-erp.git

diff --git a/SL/File.pm b/SL/File.pm
index 830559460..25c6d96c1 100644
--- a/SL/File.pm
+++ b/SL/File.pm
@@ -4,7 +4,6 @@ use strict;
 
 use parent qw(Rose::Object);
 
-use Clone qw(clone);
 use SL::File::Backend;
 use SL::File::Object;
 use SL::DB::History;
@@ -78,7 +77,7 @@ sub get_all_versions {
       for my $version (2..$maxversion) {
         $main::lxdebug->message(LXDebug->DEBUG2(), "clone for version=".($maxversion-$version+1));
         eval {
-          my $clone = clone($fileobj);
+          my $clone = $fileobj->clone;
           $clone->version($maxversion-$version+1);
           $clone->newest(0);
           $main::lxdebug->message(LXDebug->DEBUG2(), "clone version=".$clone->version." mtime=". $clone->mtime);