1c1
< #!/usr/bin/perl
---
> #!/opt/bin/perl
20a21
> our $DEBUG = 0;
52d52
< 	print "$line\n";
55a56,59
> 	if ($target =~ /;1/)
> 	{
> 		$target = substr($target, 0, -2);
> 	}
57c61
< 		print "$target\n";
---
> 		print "Extracting to $target\n";
61,62c65,66
< 			print "ln -s $dst $dest_dir$curr_dir$src\n";
< 			system "ln -s $dst $dest_dir$curr_dir$src";
---
> 			print "ln -s \"$dst\" \"$dest_dir$curr_dir$src\"\n if $DEBUG";
> 			system "ln -s \"$dst\" \"$dest_dir$curr_dir$src\"" if !$DEBUG;
67c71
< 			print "$file\n";
---
> 			#JPD print "$file\n";
70c74,75
< 			system "$ISOINFO -i $iso -x /$curr_dir$file > $target";
---
> 			system "$ISOINFO -i \"$iso\" -x \"/$curr_dir$file\" > \"$target\"" if !$DEBUG;
> 			print "$ISOINFO -i \"$iso\" -x \"/$curr_dir$file\" > \"$target\"\n" if $DEBUG;
81c86
< 				system "chmod 0$real_mod $target";
---
> 				system "chmod 0$real_mod \"$target\"" if !$DEBUG;
141c146,153
< my @file_list = split("\n", `$ISOINFO -R -l -i $iso`);
---
> my @file_list = split("\n", `$ISOINFO -R -l -i \"$iso\"`);
> 
> # Set dest_dir for extraction
> if ($dest_dir eq "")
> {
> 	$dest_dir = substr($iso, 0, -4)."/";
> 	mkdir $dest_dir;
> }
151c163
< 			print("$dest_dir$curr_dir\n");
---
> 			print("$dest_dir$curr_dir\n") if $DEBUG;
153a166,167
> 	} elsif (/BAD RRVERSION/) {
> 		# ignore these lines
154a169
> 		$_ =~ s/^\s+|\s+$//g;