Permalink
Browse files

Remove perl-4-ish use of ampersands

  • Loading branch information...
1 parent 20890f4 commit 6a01ed1576a1c51b215580a9119a1d53879e94c0 @awwaiid awwaiid committed Aug 8, 2012
Showing with 8 additions and 8 deletions.
  1. +1 −1 root/produce.pl
  2. +3 −3 root/record.pl
  3. +4 −4 www/cgi-bin/wait_for_vnc.pl
View
@@ -50,7 +50,7 @@
$sthp->execute($epoch,$topic);
my $last_id = $dbh2->{'mysql_insertid'};
-&writePodcastIntro($last_id,$epoch,$topic);
+writePodcastIntro($last_id,$epoch,$topic);
my $x = Proc::Background->new($cfg->{produce}->{flite_path} . " " . $cfg->{produce}->{temp_directory} . "tmp.txt -o " . $cfg->{produce}->{temp_directory} . "tmp.wav");
$x->wait();
View
@@ -36,7 +36,7 @@
my $sql = qq{INSERT into active_recording(epoch_start) value (?)};
my $sth = $dbh->prepare($sql);
$sth->execute($epoch);
-&insertEvent($epoch,"START",$topic);
+insertEvent($epoch,"START",$topic);
my $recorder = Proc::Background->new($cfg->{record}->{record_string} . " " . $data_dir ."/audio.wav");
sleep (1);
if ($recorder->alive()){
@@ -81,7 +81,7 @@
print "Quiting...\n";
$recorder->die();
my $z = time;
- &insertEvent($z,"QUIT");
+ insertEvent($z,"QUIT");
exit(0);
}
@@ -96,7 +96,7 @@
$vnc->login();
print "conected ok...\n";
my $z = time;
- &insertEvent($z,"Screen Capture");
+ insertEvent($z,"Screen Capture");
my $img = $vnc->capture();
$img->save($data_dir . "/" . $z . ".png");
print "Done!\n";
@@ -27,7 +27,7 @@
};
if ($@){
# Error caught
- &doInsert(1);
+ doInsert(1);
}
my $proc = Proc::Background->new("/usr/bin/zbarimg --raw /tmp/img_" . $source . ".png > /tmp/img_" . $source . "_result.txt");
@@ -50,12 +50,12 @@
};
my $a = $@;
if ($a){
- &doInsert(3);
+ doInsert(3);
} else {
- &doInsert(4);
+ doInsert(4);
}
} else {
- &doInsert(2);
+ doInsert(2);
}
sub doInsert{

0 comments on commit 6a01ed1

Please sign in to comment.