# shlomi-fish-homepage / bin / gen-fortunes.pl

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 #!/usr/bin/perl use strict; use warnings; use Cwd qw(getcwd); # This is to in order to generate the t2/humour/fortunes/arcs-list.mak # file, which is inclduded by the makefile. { my $orig_dir = getcwd(); chdir("t2/humour/fortunes"); system("make", "dist"); system("make", "list_files"); chdir($orig_dir); }