libc/winsup/c++wrap

7 lines
136 B
Perl
Executable File

#!/usr/bin/perl
use strict;
use File::Basename;
my $pgm = basename($0);
(my $wrapper = $pgm) =~ s/\+\+/c/o;
exec $wrapper, '++', @ARGV;