summaryrefslogtreecommitdiffstats
path: root/perl-install/resize_fat
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-22 01:56:47 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-22 01:56:47 +0000
commit3fbb4389df3ddeecd4fcd645591a3d90a47de373 (patch)
tree8f1547576b7dcbb2678e5aac7516d3e22e5169ec /perl-install/resize_fat
parentc942786c119d41faaa03357ddeb5bea338867727 (diff)
downloaddrakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.gz
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.bz2
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.xz
drakx-3fbb4389df3ddeecd4fcd645591a3d90a47de373.zip
no_comment
Diffstat (limited to 'perl-install/resize_fat')
-rw-r--r--perl-install/resize_fat/directory.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm
index 22d2a1fae..cdce4be88 100644
--- a/perl-install/resize_fat/directory.pm
+++ b/perl-install/resize_fat/directory.pm
@@ -67,7 +67,7 @@ sub traverse_all($$) {
resize_fat::io::read_file($fs, $fs->{fat32_root_dir_cluster}) :
resize_fat::io::read($fs, $fs->{root_dir_offset}, $fs->{root_dir_size});
traverse($directory, $traverse_all);
- $traverse_all = undef; #- circular reference is no good for perl's poor GC :(
+ undef $traverse_all; #- circular reference is no good for perl's poor GC :(
}