patch-remove-perlexperimental #77
@@ -1,4 +1,4 @@
 | 
			
		||||
UPD 2025-02-04_21:25:55 25899 FHEM/59_Weather.pm
 | 
			
		||||
UPD 2025-02-05_05:56:41 25899 FHEM/59_Weather.pm
 | 
			
		||||
UPD 2025-02-04_21:08:26 34419 lib/FHEM/Core/Weather.pm
 | 
			
		||||
UPD 2025-02-04_21:08:26 33780 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
 | 
			
		||||
UPD 2025-02-05_06:38:34 33780 lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm
 | 
			
		||||
UPD 2025-02-04_21:08:26 38751 lib/FHEM/APIs/Weather/wundergroundAPI.pm
 | 
			
		||||
 
 | 
			
		||||
@@ -4,9 +4,9 @@ use File::Basename;
 | 
			
		||||
use POSIX qw(strftime);
 | 
			
		||||
use strict;
 | 
			
		||||
 | 
			
		||||
my @filenames = (   'FHEM/59_Weather.pm',
 | 
			
		||||
my @filenames = (
 | 
			
		||||
    'FHEM/59_Weather.pm',
 | 
			
		||||
    'lib/FHEM/Core/Weather.pm',
 | 
			
		||||
		    'lib/FHEM/APIs/Weather/DarkSkyAPI.pm',
 | 
			
		||||
    'lib/FHEM/APIs/Weather/OpenWeatherMapAPI.pm',
 | 
			
		||||
    'lib/FHEM/APIs/Weather/wundergroundAPI.pm',
 | 
			
		||||
);
 | 
			
		||||
@@ -19,7 +19,8 @@ for my  $filename (@filenames) {
 | 
			
		||||
    my @statOutput = stat($filename);
 | 
			
		||||
 | 
			
		||||
    if ( scalar @statOutput != 13 ) {
 | 
			
		||||
        printf 'error: stat has unexpected return value for ' . $filename . "\n";
 | 
			
		||||
        printf 'error: stat has unexpected return value for '
 | 
			
		||||
          . $filename . "\n";
 | 
			
		||||
        next;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user