view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

# is unreliable on some platforms and requires write permissions)
# for now we should catch this and refuse to run.
if ( -f $0 ) {
	my $s = (stat($0))[9];

	# If the modification time is only slightly in the future,
	# sleep briefly to remove the problem.
	my $a = $s - time;
	if ( $a > 0 and $a < 5 ) { sleep 5 }

	# Too far in the future, throw an error.
	my $t = time;
	if ( $s > $t ) { die <<"END_DIE" }

Your installer $0 has a modification time in the future ($s > $t).

This is known to create infinite loops in make.

Please correct this, then run $0 again.

END_DIE

lib/App/CLI/Plugin/StackTrace.pm  view on Meta::CPAN

  ==========
STACKTRACE_MESSAGE

		} # end of LOOP_OF_FRAMES

		$stacktrace_message .= <<STACKTRACE_MESSAGE;
----------

STACKTRACE_MESSAGE

		# rethrow
		die $stacktrace_message;
	};

}

1;

__END__

=head1 NAME

lib/App/CLI/Plugin/StackTrace.pm  view on Meta::CPAN

       00031: 
       00032: 	try {
       00033: 		$self->setup(@argv);
       00034: 		$self->prerun(@argv);
       00035: 		if ($self->finished == 0) {
     * 00036: 			$self->run(@argv);
       00037: 			$self->postrun(@argv);
       00038: 		}
       00039: 	}
       00040: 	catch App::CLI::Extension::Exception with {
       00041: 		# $self->e is App::CLI::Extension::Exception object. execute $self->throw($message)
  
    ==========
    App::CLI::Extension::Component::RunCommand at /usr/lib/perl5/site_perl/5.8.8/App/CLI/Extension/Component/RunCommand.pm line 54.
  
       00049: 		$self->exit_value($FAIL_EXIT_VALUE);
       00050: 		$self->fail(@argv);
       00051: 	}
       00052: 	finally {
       00053: 		$self->finish(@argv);
     * 00054: 	};