summaryrefslogtreecommitdiffstats
path: root/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/unused/migrate-ugtk2-to-mygtk2.pl')
-rwxr-xr-xperl-install/unused/migrate-ugtk2-to-mygtk2.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
index 620ff4578..aabeb8a36 100755
--- a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
+++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl
@@ -23,7 +23,7 @@ $b = 1;
while ($b) {
$b = 0;
- if (my ($before, $class, undef, $new, $arg, $after, $after2) = /(.*?)Gtk2::(\w+(::\w+)*)->(new\w*)(?:\(($re)\)(.*)|([^(].*))/s) {
+ if (my ($before, $class, undef, $new, $arg, $after, $after2) = /(.*?)Gtk3::(\w+(::\w+)*)->(new\w*)(?:\(($re)\)(.*)|([^(].*))/s) {
$after ||= $after2;
my $s;