/usr/bin/wxperl_overload is in libwx-perl 1:0.9932-4.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | #!/usr/bin/perl -w
#############################################################################
## Name: script/wxperl_overload
## Purpose: builds overload constants
## Author: Mattia Barbon
## Modified by:
## Created: 17/08/2001
## RCS-ID: $Id: wxperl_overload 2335 2008-01-21 22:58:59Z mbarbon $
## Copyright: (c) 2001-2003, 2005-2008 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
use FindBin;
use strict;
use lib "$FindBin::RealBin/../build";
=head1 NAME
wxperl_overload - create overload declarations for wxPerl extensions
=head1 SYNOPSIS
# usually invoked from Makefile
wxperl_overload <.cpp file> <.h file> files...
wxperl_overload <.cpp file> <.h file> file.lst
=head1 DOCUMENTATION
This script if usually invoked from an
C<ExtUtils::MakeMaker>-generated file by using C<WX_OVERLOAD> in
F<Makefile.PL>.
Scans the files given on the command line or listed in the F<.lst>
file searching for wxPerl overload declarations. Writes a F<.h> file
with matching F<.cpp> file containing the definition for wxPerl
overload constants.
=cut
use Wx::Overload::Driver;
my( $ovlc, $ovlh ) = ( shift, shift );
if( $ARGV[0] && $ARGV[0] =~ /\.lst$/ ) { # lame hack to read list from file
open my $fh, "<", $ARGV[0] or die "$!";
@ARGV = map { chomp; $_ } <$fh>;
}
my $driver = Wx::Overload::Driver->new
( files => \@ARGV,
header => $ovlh,
source => $ovlc,
);
$driver->process;
exit 0;
|