#Foo/Foo.pm did not return a true value
File 'executable/perl/file'; Line 1
# BEGIN failed - compilation aborted
File 'executable/perl/file'; Line 1
... propagated
File 'executable/perl/file'; Line 2
####
use Foo::Foo qw(declare_text);
use File::WalkTree;
use strict;
require 'env.pl';
# ... do some stuff
exit;
__END__
####
package Foo:Foo;
use strict;
# ... a buncha stuff here
sub declare_text { # noop if this isn't under MacPerl
if($MacPerl::Version) {
foreach my $item (@_) {
&MacPerl::SetFileInfo('R*ch', 'TEXT', $item);
}
}
return;
}
#... more stuff
1;
__END__