Files

7 lines
136 B
Perl
Raw Permalink Normal View History

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