Revision 0d6ff79f
Von Sven Schöling vor fast 4 Jahren hinzugefügt
| SL/File.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
use parent qw(Rose::Object); |
| 6 | 6 |
|
| 7 |
use Clone qw(clone); |
|
| 8 | 7 |
use SL::File::Backend; |
| 9 | 8 |
use SL::File::Object; |
| 10 | 9 |
use SL::DB::History; |
| ... | ... | |
| 78 | 77 |
for my $version (2..$maxversion) {
|
| 79 | 78 |
$main::lxdebug->message(LXDebug->DEBUG2(), "clone for version=".($maxversion-$version+1)); |
| 80 | 79 |
eval {
|
| 81 |
my $clone = clone($fileobj);
|
|
| 80 |
my $clone = $fileobj->clone;
|
|
| 82 | 81 |
$clone->version($maxversion-$version+1); |
| 83 | 82 |
$clone->newest(0); |
| 84 | 83 |
$main::lxdebug->message(LXDebug->DEBUG2(), "clone version=".$clone->version." mtime=". $clone->mtime); |
Auch abrufbar als: Unified diff
File: Kein deep clone von Strukturen machen die SL::DB::* Objekte enthalten
Das führt zu Duplizierungen von Singletons, in diesem Fall der
Datenbankverbindung die dann beim abbauen kaputtgehen.
(cherry picked from commit 9a86234c1a5624573a3f2738cf25b526527796c8)
Behebt #358 (redmine).