Help for this page
package CachedFile; ... my ($self) = @_; return \$self->{name}; }
${$cachedfile->name} = "a_long_file_name";
package Proxy; ... croak $self->{message} unless $self->{postcheck}->($self->{original}); }
package CachedFile; ... "File name too long!" ); }
my $file = CachedFile->new("orig_name"); ${$file->name} = "shrt_fl_nm"; # okay ${$file->name} = "a_long_file_name"; # KABOOM!
www.com | www.net | www.org
No recent polls found