Permalink
Browse files

Remove trailing newlines from Mac command results

  • Loading branch information...
1 parent 9016711 commit d094d898c32ac099a78cc66f95214f3911abcdc7 @JJ-OpusVL JJ-OpusVL committed May 25, 2011
Showing with 5 additions and 2 deletions.
  1. +3 −0 Changes
  2. +1 −1 lib/Devel/Platform/Info.pm
  3. +1 −1 lib/Devel/Platform/Info/Mac.pm
View
3 Changes
@@ -1,6 +1,9 @@
Revision history for Perl library Devel-Platform-Info
=====================================================
+0.09 25/05/2011
+ - remove trailing newlines from Mac command results (JJ)
+
0.08 01/04/2011
- added Scientific Linux distro (as suggested by Norbert Gruener).
View
2 lib/Devel/Platform/Info.pm
@@ -4,7 +4,7 @@ use strict;
use warnings;
use vars qw($VERSION);
-$VERSION = '0.08';
+$VERSION = '0.09';
#----------------------------------------------------------------------------
View
2 lib/Devel/Platform/Info/Mac.pm
@@ -62,10 +62,10 @@ sub _command {
my $self = shift;
my $command = shift;
my $result = `$command`;
+ chomp $result;
$self->{info}{source}{$command} = $result;
- chomp $result;
return $result;
}

0 comments on commit d094d89

Please sign in to comment.