X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FFile%2FObject.pm;h=3aa553d23580cdfbf2edaeead7454a6c92c93ab1;hb=4270e94242a347cfd105f876d52d1e38b5ca6a19;hp=7ac8706fce69757752fb1e45de176773f3bb91f4;hpb=48baa5ebf4441c31d45d0111a0fe8b88d10a4dcd;p=kivitendo-erp.git

diff --git a/SL/File/Object.pm b/SL/File/Object.pm
index 7ac8706fc..3aa553d23 100644
--- a/SL/File/Object.pm
+++ b/SL/File/Object.pm
@@ -124,6 +124,10 @@ sub loaded_db_file {  # so, dass wir die nur einmal laden.
   $_[0]->db_file;
 }
 
+sub clone {
+  bless +{ %{ $_[0] } }, __PACKAGE__;
+}
+
 
 sub init_db_file { die 'must always have a db file'; }
 sub init_loaded  { 0 }