Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Print to stdout.

  • Loading branch information...
commit bd16b94d7af59d3af3246ed76447e789010b85a4 1 parent 322fad1
Dave Cross authored July 11, 2010

Showing 1 changed file with 3 additions and 6 deletions. Show diff stats Hide diff stats

  1. 9  fedora_rpms
9  fedora_rpms
@@ -22,8 +22,6 @@ my @repos = qw(fedora updates magnum rpmfusion-free rpmfusion-nonfree
22 22
                rpmfusion-free-updates rpmfusion-nonfree-updates livna);
23 23
 my @cols = qw(name version vendor repo);
24 24
 
25  
-open my $csv, '>', 'fedora_perl.csv' or die $!;
26  
-
27 25
 my $rpm;
28 26
 
29 27
 foreach my $r (@repos) {
@@ -41,8 +39,8 @@ foreach my $r (@repos) {
41 39
 
42 40
 my $p = Parse::CPAN::Packages->new($packfile);
43 41
 
44  
-print $csv 'Distribution name,cpan,', join ',', @repos;
45  
-print $csv "\n";
  42
+print 'Distribution name,cpan,', join ',', @repos;
  43
+print "\n";
46 44
 
47 45
 foreach (sort keys %$rpm) {
48 46
   my $distname = $_;
@@ -64,6 +62,5 @@ foreach (sort keys %$rpm) {
64 62
     }
65 63
   }
66 64
 
67  
-  print $csv join(',', @out);
68  
-  print $csv "\n";
  65
+  print join(',', @out), "\n";
69 66
 }

0 notes on commit bd16b94

Please sign in to comment.
Something went wrong with that request. Please try again.