sub save{
my $self = shift;
my $filename = $self->filename;
open my $fh, ">:raw", $filename or croak "$filename: $!";
print $fh Dump(damn_scalar($self));
close $fh;
return 1;
}
That means that if it's interrupted during save you've lost your
original file.
Instead of doing that it should be writing to a temporary file first
and then renaming
it later.
sitemap generator for Perl ... I want to run the sitemap generator... Returns the minimum number of links to traverse from the root URL of ... my $class = shift;... (perl.beginners)
Re: How can I create instantiable objects (not classes)? ... a child object inherits not only its parent object's ...sub fee { ... my $class = shift;... For example, an object of type Car might receive a message named "ticket," and since a car does not know what to do with a ticket, it would pass that message to an object of type Driver. ... (comp.lang.perl.misc)
Re: Packages and returning errors ... > array intact....sub is_a_instance_method { ... my $class = shift;... You need to fix the scope of $error by moving its declaration outside ... (comp.lang.perl.misc)
Re: passing database data to a sub ... > I'm not sure of the difference, why isn't it a subroutine?... > sure about this 'shift' thing anyway :-) ... > sub teardown... > # Setup the template to use for the output. ... (perl.beginners)
Re: Massive failed FTP attempts. ... made it a little more generic so that it could monitor any log file.... To run as a daemon and monitor proftpd, sending lockout notifications to ...sub prune_old_entries ... my $line = shift;... (Security-Basics)
