| 2 |
## $Id$ |
## $Id$ |
| 3 |
## --------------------------------------------------------------------------- |
## --------------------------------------------------------------------------- |
| 4 |
## $Log$ |
## $Log$ |
| 5 |
|
## Revision 1.12 2003/02/20 22:45:19 joko |
| 6 |
|
## fix regarding new deep_copy |
| 7 |
|
## |
| 8 |
## Revision 1.11 2003/02/20 21:13:54 joko |
## Revision 1.11 2003/02/20 21:13:54 joko |
| 9 |
## - removed implementation of deep_copy2 - get this from the Pitonyak namespace (now cloned to repository) |
## - removed implementation of deep_copy2 - get this from the Pitonyak namespace (now cloned to repository) |
| 10 |
## |
## |
| 64 |
use Data::Dumper; |
use Data::Dumper; |
| 65 |
use Iterate; |
use Iterate; |
| 66 |
|
|
| 67 |
|
use Pitonyak::DeepCopy; |
| 68 |
use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); |
use Data::Transform::Encode qw( latin_to_utf8 latin_to_utf8_scalar utf8_to_latin utf8_to_latin_scalar ); |
| 69 |
use Data::Code::Ref qw( ref_slot ); |
use Data::Code::Ref qw( ref_slot ); |
| 70 |
|
|
| 449 |
# Copyright 2002, Andrew Pitonyak (perlboy@pitonyak.org) |
# Copyright 2002, Andrew Pitonyak (perlboy@pitonyak.org) |
| 450 |
# please visit: http://www.pitonyak.org/code/perl/Pitonyak/DeepCopy.pm.html |
# please visit: http://www.pitonyak.org/code/perl/Pitonyak/DeepCopy.pm.html |
| 451 |
sub deep_copy { |
sub deep_copy { |
| 452 |
Pitonyak::deep_copy(@_); |
Pitonyak::DeepCopy::deep_copy(@_); |
| 453 |
} |
} |
| 454 |
|
|
| 455 |
|
|
| 456 |
1; |
1; |
| 457 |
__END__ |
__END__ |
Parent Directory
| 
Revision Log
| 
Patch
