MSDOS-Descript
view release on metacpan or search on metacpan
lib/MSDOS/Descript.pm view on Meta::CPAN
173174175176177178179180181182183184185186187188189190191192193
}
close
DESCRIPT;
set_attribs(
'+h'
,
$out
)
if
$hide_descriptions
;
}
$self
->{changed} = 0
if
$out
eq
$self
->{file};
}
# end write
#---------------------------------------------------------------------
# Save changes to descriptions:
sub
update
{
$_
[0]->
write
if
$_
[0]->changed;
}
# end update
#=====================================================================
# Package Return Value:
1;
__END__
( run in 0.336 second using v1.01-cache-2.11-cpan-05162d3a2b1 )