Select Code to Download

  
    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!