change directory structure
This commit is contained in:
		@@ -4,15 +4,15 @@ use File::Basename;
 | 
			
		||||
use POSIX qw(strftime);
 | 
			
		||||
use strict;
 | 
			
		||||
 | 
			
		||||
my @filenames = ('FHEM/46_TeslaPowerwall2AC.pm',);
 | 
			
		||||
my @filenames = ('FHEM/46_TeslaPowerwall2AC.pm');
 | 
			
		||||
 | 
			
		||||
my $controlsfile    = 'controls_TeslaPowerwall2AC.txt';
 | 
			
		||||
my $controlsfile = 'controls_TeslaPowerwall2AC.txt';
 | 
			
		||||
 | 
			
		||||
open(FH, ">$controlsfile") || return("Can't open $controlsfile: $!");
 | 
			
		||||
 | 
			
		||||
for my  $filename (@filenames) {
 | 
			
		||||
    my @statOutput = stat($filename);
 | 
			
		||||
  
 | 
			
		||||
 | 
			
		||||
    if (scalar @statOutput != 13) {
 | 
			
		||||
        printf 'error: stat has unexpected return value for ' . $filename . "\n";
 | 
			
		||||
        next;
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user