[Debtags-commits] [svn] r1515 - central-database/branches/alioth/webfrontend

[Enrico Zini]

Author: enrico
Date: Sat Nov 19 14:17:18 2005
New Revision: 1515

Modified:
   central-database/branches/alioth/webfrontend/edit.cgi
Log:
Work without IO::String

Modified: central-database/branches/alioth/webfrontend/edit.cgi
==============================================================================
--- central-database/branches/alioth/webfrontend/edit.cgi	(original)
+++ central-database/branches/alioth/webfrontend/edit.cgi	Sat Nov 19 14:17:18 2005
@@ -12,7 +12,7 @@
 use CGI qw/:standard/;
 use HTML::Template;
 use URI::Escape;
-use IO::String;
+use IO::File;
 use Engine;
 use Navigation;
 use Web qw/msg/;
@@ -112,8 +112,11 @@
 			my $patch = param($par);
 			if ($patch =~ /^[0-9A-Za-z.+:, -]+$/)
 			{
-				my $in = IO::String->new($p->name.": ".$patch."\n");
+				my $patchLine = $p->name.": ".$patch."\n";
+				my $in = IO::File->new;
+				open $in, '<', \$patchLine or die "Cannot open a variable as a file: $!";
 				Engine::applyPatch($in);
+				$in->close();
 			}
 		}
 	}