currentlog.log fits the pattern currentlog*.log. The "_" makes the difference. If you need something more general than "currentlog_*.log" try this:

my @logs = glob "currentlog*.log";
for (@logs) {
    next if $_ eq "currentlog.log";
    unlink $_;
}
[download]

I hope you have copies of your logfiles before do any testing...