mirror of
https://github.com/encounter/newlib.git
synced 2026-03-30 11:31:09 -07:00
7 lines
136 B
Perl
7 lines
136 B
Perl
|
|
#!/usr/bin/perl
|
||
|
|
use strict;
|
||
|
|
use File::Basename;
|
||
|
|
my $pgm = basename($0);
|
||
|
|
(my $wrapper = $pgm) =~ s/\+\+/c/o;
|
||
|
|
exec $wrapper, '++', @ARGV;
|