p5pRT
commented
16 years ago From tggbiz@ntlworld.com
Created by tggbiz@ntlworld.com
Copying files does not work in a Safe compartment\, despite an empty deny only list.
In order to reproduce the results just paste the code into 2 files (SafeCopyDemo.pl\, rdo.pl) as indicated.
# File: SafeCopyDemo.pl # use strict; use warnings;
use Safe;
print "Running SafeCopyDemo\n";
do_copy_file(@ARGV);
sub some_sub { }
sub do_copy_file { if (@_ != 2) { print ("Usage: SafeCopyDemo.pl from_file to_file\n"); return; } my ($from_filespec\, $to_filespec) = @_; print "do_copy_file: Copying from $from_filespec to $to_filespec\n"; my $cpt = load_compartment(__PACKAGE__\, 'some_sub');
if (defined($cpt) && exists &{$cpt->varglob('copy_file')}) { print "do_copy_file: Calling rdo.pl copy_file\n"; &{$cpt->varglob('copy_file')}($from_filespec\, $to_filespec); } }
sub load_compartment { my ($package\, @subs) = @_; my $cpt; print "load_compartment\n"; if (-f 'rdo.pl') { $cpt = new Safe; print "load_compartment: Doing rdo.pl\n"; $cpt->share_from('main'\, [ '%ENV' ]); $cpt->share_from($package\, [ @subs ]); $cpt->deny_only(); $cpt->rdo('rdo.pl'); if ($@) { die "Thrown exception from rdo.pl: $@\n"; } } return $cpt; }
# File rdo.pl # use strict; use warnings;
use File::Copy;
print "Loading rdo.pl\n";
sub copy_file { my ($from_filespec\, $to_filespec) = @_;
copy ($from_filespec\, $to_filespec);
print "\tCopied $from_filespec to $to_filespec\n"; }
# Begin File::Copy Test on Perl 5.8
Running SafeCopyDemo do_copy_file: Copying from XXX to YYY load_compartment load_compartment: Doing rdo.pl Loading rdo.pl do_copy_file: Calling rdo.pl copy_file Unable to create sub named "*Config::launcher" at C:/Perl/lib/Config.p +m line 71.
# End File::Copy Test on Perl 5.8
Migrated from rt.perl.org#57552 (status was 'open')
Searchable as RT57552$