Date: Tuesday May 21, 2002 @ 8:17
Author: matt
Update of /home/cvs/AxKit-Provider-PodSAX
In directory ted.sergeant.org:/home/matt/Perl/AxKit-Provider-PodSAX
Modified Files:
PodSAX.pm
Log Message:
Fixed get_fh to throw an exception.
Added a test.
Commented out warn()
Log:
PR:
Index: PodSAX.pm
===================================================================
RCS file: /home/cvs/AxKit-Provider-PodSAX/PodSAX.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -b -u -r1.1 -r1.2
--- PodSAX.pm 2002/05/19 14:09:00 1.1
+++ PodSAX.pm 2002/05/21 07:17:41 1.2
@@ -27,7 +27,7 @@
throw Apache::AxKit::Exception::IO(
-text => "PodSAX Generator Error: $error");
}
- warn "OUTIE $outie \n";
+ #warn "OUTIE $outie \n";
return \$outie
}
@@ -62,7 +62,9 @@
}
sub get_fh {
- return undef;
+ throw Apache::AxKit::Exception::IO(
+ -text => "Can't get filehandles from POD"
+ );
}
1;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
