Ticket #2551: 0001-two-fixes-for-myth_archive_job.pl.diff

mythtv/contrib/myth_archive_job.pl

@@ -72 +72 @@
                         printf( "    Curr Free: %6d MB\n", $freeSpace );
                 }
 
-                if (( $freeSpace - ($size / 1024.0 / 1024.0)) > $keepFree ) {
+                if (( $freeSpace - $size ) > $keepFree ) {
                         printf( "Attempting archive to %s\nStatus: ", $archiveDir );
                         if (MoveFileToArchiveDir( $file, $directory, $archiveDir )) {
                                 printf( "Success.\n" );
@@ -97 +97 @@
         if ( ! -r $dir ) {
                 return 0;
         } else {
-                my( $freeSpace ) = `df -m $dir | grep -v Available | awk '{print \$4}'`;
+                my( $freeSpace ) = `df -Pm $dir | grep -v Available | awk '{print \$4}'`;
 
                 return $freeSpace;
         }