文件操作 - _upgrade.al
返回文件管理
返回主菜单
删除本文件
文件: /usr/lib64/perl5/vendor_perl/auto/Newt/Panel/_upgrade.al
编辑文件内容
# NOTE: Derived from blib/lib/Newt.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Newt::Panel; #line 751 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Panel/_upgrade.al)" sub Newt::Panel::_upgrade { my $self = shift; my @upgraded = (); for my $k (keys(%{$self->{refs}})) { my $comp = $self->{refs}{$k}; if(UNIVERSAL::isa($comp,'Newt::Panel')) { push(@upgraded,$comp->_upgrade); %{$comp->{refs}} = (); } else { push(@upgraded,($k=>$comp)); } } return @upgraded; } # end of Newt::Panel::_upgrade 1;
修改文件时间
将文件时间修改为当前时间的前一年
删除文件