bugfix

kazeburo · Nov 8, 2011 · 9618d0a · 9618d0a
1 parent 5f54582
commit 9618d0a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/OrePAN/Package/Whois.pm b/lib/OrePAN/Package/Whois.pm
@@ -25,12 +25,12 @@ sub add {
     <has_cpandir>1</has_cpandir>
   </cpanid>
 EOS
-    chomp $self->{data};
 }
 
 sub save {
     my ($self, ) = @_;
     my $cont = $self->data;
+    chomp $cont;
     open my $fh, '>', $self->filename or die $!;
     print $fh <<"EOS";
 <?xml version="1.0" encoding="UTF-8"?>