From 7b932c67d2c8ec1ba13d69eb34fb098c254efefa Mon Sep 17 00:00:00 2001 From: Chris Petersen Date: Thu, 8 Jan 2004 00:44:52 +0000 Subject: [PATCH] fixed a glitch preventing the final file from being saved. --- trunk/export_SVCD.pm | 3 ++- trunk/gui_cli.pm | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/trunk/export_SVCD.pm b/trunk/export_SVCD.pm index f3a583e..49132bf 100644 --- a/trunk/export_SVCD.pm +++ b/trunk/export_SVCD.pm @@ -283,7 +283,8 @@ package export_SVCD; sub cleanup { my $self = shift; # Remove any temporary files - foreach my $file ("$self->{fifodir}/audout", "$self->{fifodir}/vidout", $self->{tmp_a}, $self->{tmp_v}) { + #foreach my $file ("$self->{fifodir}/audout", "$self->{fifodir}/vidout", $self->{tmp_a}, $self->{tmp_v}) { + foreach my $file ("$self->{fifodir}/audout", "$self->{fifodir}/vidout") { unlink $file if (-e $file); } rmdir $self->{fifodir} if (-d $self->{fifodir}); diff --git a/trunk/gui_cli.pm b/trunk/gui_cli.pm index 23662d3..2964c59 100644 --- a/trunk/gui_cli.pm +++ b/trunk/gui_cli.pm @@ -82,7 +82,7 @@ package gui_cli; # Notify the user print "Encode lasted: $timestr"; # Quit gracefully - Quit(); + main::Quit(); } sub query_filename {