#!perl

use strict;
use warnings;
#use lib::findbin '../lib'; # dev-only

# PODNAME: ebug_backend_perl
# ABSTRACT: Backend for ebug
our $VERSION = '0.69'; # VERSION


# On Windows exec starts a new process and exits this one, so the frontend
# would see the process it started die before the backend connects.  Wait
# for the backend instead, and exit with its status.
if ($^O eq 'MSWin32') {
  system $^X, "-d:ebug::Backend", @ARGV;
  exit($? == -1 ? 255 : $? >> 8);
}

exec $^X, "-d:ebug::Backend", @ARGV;

__END__

=pod

=encoding UTF-8

=head1 NAME

ebug_backend_perl - Backend for ebug

=head1 VERSION

version 0.69

=head1 SEE ALSO

L<Devel::ebug>

=head1 AUTHOR

Original author: Leon Brocard E<lt>acme@astray.comE<gt>

Current maintainer: Graham Ollis E<lt>plicease@cpan.orgE<gt>

Contributors:

Brock Wilcox E<lt>awwaiid@thelackthereof.orgE<gt>

Taisuke Yamada

Richard Leach (HYDAHY)

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2005-2026 by Leon Brocard.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
