logging: Check if typescripts with a similar name already exist

[sunny256-utils.git] / perldeboff

#!/usr/bin/env perl

# perldeboff
# File ID: 13dbcd36-5d42-11df-9dfc-90e6ba3022ac
# Kommenterer ut debuggingsmeldinger i Perl

while (<>) {
        s/(&deb_pr\(__LINE__)/# $1/g;
        print;
}