Subversion Repositories DevTools

Rev

Rev 5398 | Rev 7387 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5398 Rev 6776
Line 1... Line 1...
1 
package Utils;
 1 
package Utils;
2 
use File::Basename;
 2 
use File::Basename;
3 
use Data::Dumper;
 3 
use Data::Dumper;
- 
 
 4 
$Data::Dumper::Sortkeys  = 1;
4 
 
 5 
 
5 
sub trunc ($) {
 6 
sub trunc ($) {
6 
    my $file = shift;
 7 
    my $file = shift;
7 
    open my $fh, ">$file" or die "Can't write $file: $!\n";
 8 
    open my $fh, ">$file" or die "Can't write $file: $!\n";
8 
    print $fh '';
 9 
    print $fh '';