Silence "print() on closed filehandle" warnings

Trivial nit: If $PERLBREW_ROOT/perls/perl-*.*.*/.version is read-only (e.g., a root-owned, system-wide directory like "/opt/perlbrew"), don't try to write to it.
gugod · Jul 15, 2014 · c499ac2 · c499ac2
1 parent 0165d69
commit c499ac2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/App/perlbrew.pm b/lib/App/perlbrew.pm
@@ -1491,8 +1491,9 @@ sub installed_perls {
         } else {
             $orig_version = `$executable -e 'print \$]'`;
             if ( defined $orig_version and length $orig_version ){
-                open my $fh, '>', $version_file;
-                print {$fh} $orig_version;
+                if (open my $fh, '>', $version_file ){
+                    print {$fh} $orig_version;
+		}
             }
         }