X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=gruntmaster-compile;h=35a34244c4122f63bd1fc4fce266b817d777e1d0;hp=bc9c4f5d252ea4f88b8ef26d33b6ce1d99efae49;hb=496fffaa1f2582bd36d8426a0dcf22d94c5fd849;hpb=69c2540886d549bcd11b375cdaeb83ec4646f619 diff --git a/gruntmaster-compile b/gruntmaster-compile index bc9c4f5..35a3424 100755 --- a/gruntmaster-compile +++ b/gruntmaster-compile @@ -3,8 +3,11 @@ use v5.14; no if $] > 5.017011, warnings => 'experimental::smartmatch'; use File::Copy qw/copy/; +use File::Basename qw/fileparse/; + +my ($format, $name) = @ARGV; +my $basename = fileparse $name, qr/\..*/; -my ($format, $basename, $name) = @ARGV; my $ret = fork // die $!; if ($ret) { $SIG{ALRM} = sub {kill KILL => $ret};