MSDOS-Descript

 view release on metacpan or  search on metacpan

lib/MSDOS/Descript.pm  view on Meta::CPAN

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
        }
        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 )