Compare commits
1 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| 6fcccf99b8 |
@@ -60,12 +60,15 @@ sub safe_call {
|
|||||||
sub append_to_file {
|
sub append_to_file {
|
||||||
my ( $file_name, $package ) = @_;
|
my ( $file_name, $package ) = @_;
|
||||||
|
|
||||||
# Check that the package was not already there
|
if ( -f $file_name ) {
|
||||||
open my $fh_ro, '<:encoding(UTF-8)', $file_name or die;
|
|
||||||
while ( my $line = <$fh_ro> ) {
|
# Check that the package was not already there
|
||||||
return if $line eq $package . "\n";
|
open my $fh_ro, '<:encoding(UTF-8)', $file_name or die;
|
||||||
|
while ( my $line = <$fh_ro> ) {
|
||||||
|
return if $line eq $package . "\n";
|
||||||
|
}
|
||||||
|
close $fh_ro;
|
||||||
}
|
}
|
||||||
close $fh_ro;
|
|
||||||
|
|
||||||
open( my $fh_a, '>>', $file_name )
|
open( my $fh_a, '>>', $file_name )
|
||||||
or die "Could not open file '$filename' $!";
|
or die "Could not open file '$filename' $!";
|
||||||
|
|||||||
Reference in New Issue
Block a user